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ば じ め に 


本 書 は 、 シ ャ ー プ パー ソナ ル ワ ー ク ステ ーション 「X68000 シ リー ズ 」 上 で 動作 する 「X-BASIC」 
の 説明 書 で す 。X-BASIC の 機能 、 お よび その 使い 方 が 詳細 に 解説 され て いま す 。 

な お 、 本 機 の 取扱 いや ビジ ュ ア ル シ ェ ル の 使い 方 な ど に つい て は 、 別 冊 の 「 取 扱 説明 書 」 に わか り 
や すく 説明 され て いま す 。 初 め て 本 機 を お 使い に な る 方 は 、 必 ず 「 取 扱 説明 書 」 を 先 に ご 覧 くだ さい 。 


下図 は 本 機 に 同 梱 の 4 冊 の マニ ュ ア ル の 互い の 関係 示し て いま す 。 


本 書 


X-BASIC ユ ー ザ ー ズ リフ ァ レ ンス 


・X-BASIC で プロ グラ ム を 作る 
・X-BASIC で 作っ た プロ グラ ム を 使う 


日 本 語 ワ ー ド プロ セッ サ ・ 辞 書 ユ ー テ ィ イリ ティ ユー ザー ズ マ ニュ アル 


・ 原 稿 や 書類 な ど と いっ た 文書 を 作成 する 


・ 各 文書 を 編集 する 
・ 辞 書 デ ィ ス ク の メン テ ナ ン ス を 行う 


Human 68 k ユ ー ザ ー ズ マニ ュ ア ル 


・ フ ァイル 操作 や ディ スク 操作 を 行う 
・ 様 々 な 環境 設定 を 行う 
・ 付 属 の スク リー ン エ ディ タ で テキ スト ファ イル を 作る 


マニ ュ ア ル の 使い 方 


この マニ ュ ア ル は 、 本 機 で 使用 で きる プロ グラ ミン グ 言 語 、X-BASIC の 説明 書 で 、 そ の 概念 や 特 
長 、 文 法 の 解説 、 各 コマ ンド や 関数 の リフ ァ レ ンス 、 及 び 資 料 編 か ら 構 成 さ れ て いま す 。 特に 基本 的 
な 文法 や 、X-BASIC に 特有 の 機能 な ど に つい て は 第 1 章 か ら 第 3 章 を ご 覧 くだ さい 。 第 4 章 は 、 実 
際 の プロ グラ ミン グ 時 に 参照 する 辞書 と し て ご 利用 いた だ ける よう 、X-BASIC の すべ て の キー ワー 
ド に つい て アル ファ ベッ ト 順 に 説明 し て あり ます 。 ま た 、 ど の よう な コマ ンド 関数 が ある か を 調べ 
る 場合 の た め に 、 機 能 別 索引 も 用 意 き れ て いま す 。 
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第 1 草 基 太 編 


・X-BASIC の 特長 


X-BASIC は 、Human68k 上 で 走る イン タプ リタ BASIC で す 。 func 一 endfunc、switch 文 、 ブ 
ロッ ク if 文 な ど を 用 いて 、C 言 語 の よう な 構造 化 プ ログ ラミ ング スタ イル を 実現 する こと が で きま 
す 。 ま た 、 イ ンタ プリ タ BASIC の 長所 で ある 修正 (デバ ッ グ ) 作業 の し や すさ と 、 ス クリ ー ン エ デ 
ィ タ に よる プロ グラ ム 編 集 の し や すさ も 兼ね 備 と て いま す 。 

特に 、 本 機 の 特長 で ある グラ フィ ッ ク 、 ス プラ イト 、 サ ウン ド 等 の ハー ドウ ェ ア 機 能 は 、 す べ て 外 
部 関数 と し て サポ ー ト され て お り 、X-BASIC の 本 体 ( 核 ) と は 独立 し た 構造 を と っ て いま す 。 こ の 
た め 別 売 の 「C Compiler PRO-68K」 を 利用 する こと で 、 独 自 の 外部 関数 を 作成 し た り 、X-BASIC 
の ソー スプ ログ ラム を C 言 語 の ソー スプ ログ ラム に コン バー ト す る こと が で きま す 。 


具体 的 に は 次 の よう な 特長 を 備え て いま す 。 

@ プ ログ ラム 内 で 種々 の 関数 定義 が で き 、 ロ ー カ ル 変 数 の 使用 に より 再帰 呼び 出し が 可能 

@ フ ァイル 構造 は Human68k と 同一 で 、C 言 語 の よう な ファ イル 処理 が 可能 

@ データ 型 と し て int (4 バイ ト 整 数 )、char (1 バイ ト 整 数 )、float (8 バイ ト 実 数 )、str (文字 ) 
の 4 つ を サポ ー ト 

@ Human68k 上 の 日 本 語 FP (フロ ント プロ セッ サ ) を 利用 し て 、 日 本 語 処理 (JIS 第 1、 第 2 水準 
漢字 ) が 可能 (日 本 語 入力 の 方 法 に つい て は 「 取 扱 説明 書 」 を 参照 し て くだ さい ) 

@ フ リー エリ ア お よび 使用 する 外部 関数 の 指定 な ど が 可能 


・ 起 動 す る 前 に 


X-BASIC を 起動 する 前 に 、 必 ず シ ステ ム デ ィ ス ク と 辞書 ディ スク の バッ クア ッ プ コピ ー を 作成 し 
て くだ さい 。 作 成 方 法 に つい て は 、「 取 扱 説明 書 」 ま た は 「Human68k ユー ザー ズ マ ニュ アル 」 を 参 
照 し て くだ さい 。 

今後 の 作業 で は 、 こ の バッ クア ッ プ され た シス テム ディ スク や 辞書 ディ スク を 使い 、 マ スタ ー デ ィ 
スク (本 機 に 付属 の 原本 ) は 、 大 切 に 保管 し て お いて くだ さい 。 
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1。.】 X-BASIC へ よう ニ こそ 


ここ で は 、X-BASIC の 起動 と 終了 の 方 法 を 説明 し ます 。 
1.1.1 ビジ ュ ア ル シ ェ ル ( デ スク トッ プ 画 面 ) か ら の 起動 


X-BASIC の 起動 方 法 に は 、 大 きく 分 け て 次 の 2 つが あり ます 。 


・ ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) か ら の 起動 
・Human68k の コマ ンド モー ド か ら の 起動 (本 章 の コラ ム 「X-BASIC の いろ いろ な 起動 」 を 
参照 し て くだ さい ) 


ここ で は 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) か ら X-BASIC を 起動 する 手順 を 説明 し ます 。 
まず 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) を 起動 し ます 。(「 取 扱 説明 書 」 を 参照 し て くだ きい) 。 
次 に 、「BASIC2」 の フォ ル ダ ー ア イコ ン を マウ ス で ポイ ント し て 、 左 ボ タン で ダブ ルク リッ ク し ます 。 
フォ ル ダ ー の ウィ ンド ウ が 開い た ら 、「BASIC.X」 の アイ コン を マウ ス で ポイ ント し て 、 左 ボタ ン 
で グフ ブル グ クリック し まず が 。 
し ば らく する と X-BASIC が 起動 し て 、 次 の 画面 が 表示 され ます 。 
X-BHSIC for X58MM9 uersion *.** 
Copyright 1987 SHRRP/Hudson 


ET kbutes free 


画面 に は 点 減 す る カー ソル が あり ます 。 こ の 状態 を 、 入 力 待ち 状態 と いい 、 キ ー ボ ー ド か ら X.- 
BASIC の 命令 や プロ グラ ム を 入力 する こと が で きま す 。 入 力 し た 文字 は カー ソル の 位置 に 表示 され 
に 


1。1。2 境 了 
X-BASIC を 終了 する に は 、 入 力 待ち 状態 の と き に 、 次 の よう に 入力 し ます 。 


system 回 (は リタ ー ン キー を 押す こと ) 


画面 に メッ セー ジ が 表示 され ます の で 、 何 か キー を 押す か 、 マ ウス の ボタ ン を クリ ッ ク し て くだ さい 。 
ビジ ュ ア ル シ ェ ル (デス クト ッ プ 画面 ) に 戻り ます 。 

また 、 ファ ンク ショ ン キ ー の [F10 | キー を 押し て も 「system」 と 表示 され ます の で 、 表 示さ れ た 
ら 、 リ ター ン キ ー を 押し て くだ さい 。 同じ よ うに し て 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) に 戻 
り ます 。 


1.2 プロ グラ ム な ん て 麗 て な い 


X-BASIC が 起動 し た ら 、 次 の よう に キー ボー ド か ら 入 力 し て くだ さい 。 


1.2 プロ グラ な な ん て 恐く な い 


print 12-7 


カー ソル は 「7 」 の 後ろ で 点 減 し て いま す 。 で は 、 リ ター ン キ ー を 押し て くだ さい 。 画 面 は 次 の よ 
に な っ た は ず で す 。 


print 12-7 
5 
Ok 


いま 入力 し た 命令 は 、「12 一 7 を 計算 し て 、 そ の 結果 を 画面 に 表示 し な さい 」 と いう 意味 で す 。 こ の 
よう に 、 直 接 XX-BASIC に 命令 を 与え て すぐ に 結果 を 出さ せる こと を 、 ダ イレ クト モー ド で 実行 す 
る 、 と いい ます 。 ま た 、 い ま 入 力 し た 「print 12 一 7 」 全 体 を 、 命 令 文 と いい ます 。 

ダイ レク トモ ー ド て 入力 、 実行 し た 命令 は 、 コ ンピュータ の メモ リ に 記憶 され ませ ん 。 「 使 い 捨て 」 

の 命令 は 、 ダ イレ クト モー ド で 実行 し ます (た だ し 再 利用 する こと も で きま す 。 こ れ に つい て は 後 ほ 
ど 説 明 し ます )。 

は 、 次 の よ す に 大 男 じ て みみ ましょ う 5。 


10 print 12-7 
入力 し た ら リ ター ン キ ー を 押し て くだ さい 。 
10 print 12-7 


今度 は 計算 結果 が 画面 に 表示 され ませ ん で し た 。 な ぜ で し ょ う 。 こ の 「 謎 」 の 答え は 、 行 の 先頭 の 
「10」 に あり ます 。 

XX-BASIC で は 、 行 の 先頭 に 1 か ら 65535 ま で の 整数 (「 行 番号 」, と いい ます ) と 1 つ 以 上 の スペ ー 
ス が あり 、 そ の 後ろ に 命令 文 が 続い て いる も の を 、「 プ ログ ラム 」 と 考え ます 。 プ ログ ラム は コン ピュ 
ー タ の メモ リ に 記憶 され て いて 、「 実 行 し な さい 」 と いう 命令 を 与え を る まで は 何 も し ませ ん 。 

キー ボー ド か ら 


run |J (| は リタ ー ン キー を 押す こと ) 


と 入力 し ます 。 ま た 、 フ ァ ン クシ ョ ン キ ー の [F 5 | キー を 押し て も 同じ し こと が で きま す 。 


10 print 12-7 
run 

5 
Ok 


計算 結果 が 表示 され まし た 。 こ の よう に 、 プ ログ ラム を コン ピュ ー タ の メモ リ に 記憶 させ て 、 あ と 
で 結果 を 出さ せる こと を 、 プ ログ ラム モー ド で 実行 する 、 と いい ます 。「run」 は 、 プ ログ ラム を 実行 
する 命令 で す 。 

カー ソル を 「12 一 7 」 の 「1」 に 移動 し て 、 


"X58000" |J 
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と 入力 し 、 さ ら に カー ソル を 「run」 の 行 に 移動 し て 、 い き な り リタ ー ン キー を 押し て み ま し ょ う 。 


10 print "X68000" 
run | 
X68000 
Ok 


run 命令 を 再度 入力 し な く て も 、 プ ログ ラム は 実行 され まし た 。 し か も 今度 は 、 計 算 結果 で は な く 、 
「XX68000」 と いう 文字 が 表示 され て いま す 。 こ の よう に 、X-BASIC で は 、 画 面 に 表示 され て いる 文 
字 を 修正 し て (ある い は その まま )、 何 度 で も 再 利用 で きま す 。 

ここ で 注意 。 画 面 に 表示 され て いる プロ グラ ム を 修正 し た り 、 新 し く 行 番号 を つけ て プロ グラ ム を 
作成 し た と き は 、 そ の あと で 必ず リタ ー ン キー を 押し ます 。 リ ター ン キ ー を 押さ ず に カー ソル 移動 キ 
ー で カー ソル を 他 の 行 へ 移動 し た と き は 、 作 成 、 修 正 の 結果 は コン ピュ ー タ の メモ リ に 記憶 され ませ 
ん 。 

で は 次 に 、「”"X68000"」 を 「"Human68k"」 に 変更 し て み ま し ょ う 。 カ ー ソ ル を 「X」 に 移動 し て 
か ら | INS | キー を 押し ます 。 続 け て 、 


Human 


と 入力 し (リタ ー ン キー は 押し ませ ん )、 | DEL | キー を 1 回 押し ます 。 次 に カー ソル を 「8」 の 右 の 
「0」 に 合わ せ て 、 


k 


と 入力 し て か ら | DEL | キー を 3 回 押し ます 。 こ こま で の 変更 は 、 ま だ コン ピュ ー タ の メモ リ に 記憶 さ 
れ て いま せん 。 仕 上 げに リタ ー ン キー を 押し まし ょ う 。 


10 print "Human68k" 
run 

X68000 

Ok 


プロ グラ ム を 実行 し ます 。「run」 の 行 に カー ソル を 移動 し て リタ ー ン キー を 押し て くだ さい 。 


10 print "Human68k" 


Fu 


Human68k 
Ok 


カー ソル の 位置 は その まま で 、 


cls 


と 入力 し て くだ さい 。 画 面 表 示 が 消え て 、 左 上 に 「Ok」 だ けが 表示 され た は ず で す 。 こ の よう に 『「cls」 
は テキ スト 画面 を 消去 する 命令 で す 。 プ ログ ラム も 消え を えて し まっ た の で し ょ うか 。 


1.2 ブログ ラム な ん て 恐く な い 


で は 、 次 の よう に 入力 し て くだ さい 。 


list 


画面 が 消 を えて も 、 メ モリ に 記 境 さき れ て いる プロ グラ ム ま で 消え て し まう わけ で は あり ませ ん 。 jist 命 
令 で いつ で も 表示 で きま す 。 ま た 、 フ ァ ン クシ ョ ン キ ー の IF 4 | キー を 押し て も 同じ こと が で きま す 。 
「list」 は 、 プ ログ ラム リス ト を 表示 する 命令 で す 。 


Ok 
list 

10 print "Human68k" 
Ok 


行 番号 の 左 に スペ ー ス が 3 文字 分 入っ て いま す が 、 実 行 に は 何 の 影 響 も あり ませ ん 。 list 命令 の 表示 
形式 が 、 い つも 行 番号 5 桁 分 な と る よう に な っ て いる だ け の こと で す 。 た だ し 、 行 番号 の 右 に は 、 必 
ず 1 つ 以上 の スペ ー ス を あけ な けれ ば な り ませ ん 。 

「10」 の 「1」 に カー ソル を 移動 し て 、 


2 | 


と 入力 し て くだ さい ぃ い 。 繰り 返し 同じ 位置 に カー ソル を 移動 し て 、「 2」 を 「3」 に 、「3」 を 「4」 に 書 
き 換え て 、 そ の た びに リタ ー ン キー を 押し ます 。 次 に 、 カ ー ソ ル を 「Ok」 の 下 の 空 いて いる と ころ に 
移動 し て か ら 、 


run || (また は [|F 5 | キー を 押し ます ) 
と 入力 し ます 。 そ うす る と …… 


Ok 
list 
40 print "Human68k" 

Ok 

run 

Human68k 

Human68k 

Human68k 

Human68k 

Ok 


プロ グラ ム を 見 て み ま し ょ う 。list 命令 を 使い ます 。 そ の 場 で 「list」 と 入力 し て リタ ー ン キー を 押す 
か 、IF 4 | キー を 押す か また は 「list」 と 表示 され て いる 行 に カー ソル を 移動 し て リタ ー ン キー を 押し 
ます 。 
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Ok 

list 
10 print "Human68k" 
20 print "Human68k" 
30 print "Human68k" 
40 print "Human68k" 

Ok 


何 の 役 に も た た な い プ ログ ラム で す が 、 誤 動作 する わけ で は あり ませ ん 。 そ れ な り に 「 完 成 し た 」 
プロ グラ ム で す 。 

いま まで の 操作 で 、 プ ログ ラム は 簡単 に 作成 で きる ん だ 、 と いう 雰囲気 は わか っ て いた だ けた で し 
上 298 

で は 、 次 に も う 少 し プロ グラ ム ら し い 例 を 示し まし ょ う 。 

キー ボー ド か ら 、 


neW 


auto 同 | 


と 入力 し て くだ さい 。「10」 と いう 数 字 が 表示 され て 、 そ の 右側 で カー ソル が 点 減 し て いる は ず で す 。 
「new」 は 現在 メモ リ 上 に ある プロ グラ ム を 消去 する 命令 、「auto」 は 行 番号 自動 的 に 発生 きせ る 命 
令 で す 。 


new 
Ok 


次 の プロ グラ ム を 入力 し て くだ さい 。 行 番号 は 、 リ ター ン キ ー を 押す と 自動 的 に 表示 され ます の で 、 
入力 する 必要 は あり ませ ん 。 ま た 、 も し 前 の 行 に 入力 ミス が あっ た と し て も 、 そ れ は すべ て 入力 し た 
あと で 修正 で きま す 。 


1。2 プロ グラ ム な ん て 恐 ぐ な い 


19 /* sample.bas 

20 せ m も 玖 。E 捉 

39 soreen 2,9,1,1 

49 vpage(1 ) 

59 window( の 9,9,1923,1923) 
69 mouse(9) 

79 mouse(4) 

89 home(9,384,384) 

99 fi11(499,499,659,650,9) 
199 chile fg=9 

110 fg=msbtn(1,9,9) 
129 mapos(x,) 

1309 home( の 9,x,y) 

149 endwhile 

159 vipe( ) 

169 end 


「end」 ま で 入力 し て リタ ー ン キー を 押し た ら 、 続 け て [ BREAK | キー を 押し ます 。 入 力 ミ ス が ある 
よう で し た ら 、 カー ソル 移動 キー と | INS | キー、| DEL | キー な ど を 使っ て 修正 し て くだ さい 。 修正 
し た ら 、 リ ター ン キ ー を 押す こと を お 忘れ な く 。 

それ で は 実行 し て み ま し ょ う 。 プ ログ ラム を 実行 する 命令 は 「run」 で し た 。 


run (また は IF 5 | キー を 押し ます ) 


と 入力 し ます 。 グ ラフ ィ ッ ク が 表示 され た ら 、 マ ウス を 動か し て み ま し ょ う (ボタ ン は 押し ませ ん )。 
四角 形 が マウ ス の 動き に 合わ せ て 移動 し ます 。 左 ボ タン を クリ ッ ク す る と 、 プ ログ ラム は 終了 し ます 。 
うま ぐ 実 行 で きた で し ょ うか 。 

せっ か く 入 力 し た プロ グラ ム で す 。 消 し て し まう の は も っ た いな い の で 、 フ ロッ ピー ディ スク に 保 
存 し ます 。 ドラ イブ B に フォ ー マ ッ ト し た ば か り の フロ ッ ピ ー デ ィ ス ク を 入れ て 、 次 の よう に 入力 し 
GSIASiGNMAS 


save  "b: sample.bas" 


プロ グラ ム の 保存 に つい て は 、 あ と の 節 で も う 少 し 詳し く 説 明 し ます 。 
次 に 、 そ の 他 の プロ グラ ム の 修正 方 法 に つい て 説明 し ます 。 


(1) 行 の 追加 

行 番号 は 通常 、10、20、30 と いう よう に 10 ず つ 増 や し た 整数 を つけ て いき ます 。 こ れ は 、 あ と か ら 
行 番号 を 追加 し や すく する た めで す 。 プ ログ ラム を 作成 し て いる と き に 、 行 の 間 に 命 令 文 を 追加 し た 
い 、 と いう こと は 頻繁 に お こり ます 。 

た と えば 、20 行 と 30 行 の 間 に 命令 文 を 追加 する と き は 、 画 面 の 何 も 入 力 さ れ て いな い 部 分 に カー ソ 
ル を 移動 し て 、20 と 30 の 間 の 整数 (25 な ど ) を 行 番号 と し て 命令 文 を 入力 し ます 。 入力 し た あと は 、 
必ず リタ ー ン キー を 押し て くだ さい 。 


list 
10 print "これ は " 
20 print " 例 で す " 

Ok 

15 print "追加 の " |J 


list | 
10 print "これ は " 
15 print "追加 の " 
20 print " 例 で す " 
Ok 


(2) 行 の 削除 
すでに ある 行 番号 だ け を 入力 し て リタ ー ン キー を 押す と 、 そ の 行 は 削除 きれ ます 。 


list 
10 print " 行 を " 
20 print "この よう に " 
30 print "削除 し ます " 
Ok 
20 
list 
10 print " 行 を " 
30 print "削除 し ます " 
Ok 


まとめ て 削除 する と き に は 、delete 命令 を 使い ます 。 


list 
10 print "複数 行 を ” 
20 print "一 度 に " 


30 print "まとめ て " 
40 print "削除 し ます " 
Ok 
delete 20-30 
list 
10 print "複数 行 を " 
40 print "削除 し ます " 
Ok 


(3) 行 の 置き 換え 
すでに ある 行 番号 と 同じ も の に 続け て 、 新 し い 命令 文 を 入力 し て リタ ー ン キー を 押す と 、 そ の 行 は 


自動 的 に 新しい も の と 置き 換わり ます 。 
list 
10 print "内 容 が " 
20 print "置き 換わり ます " 
Ok 


10 


1.2 プロ グラ ム な な ん て 恐く ない 


10 print " 三 の よ うに " 
list | 

0 prin も "ご の よう に " 

20 print "置き 換わり ます " 
Ok 


(4) 行 番号 の つけ 換え 
プロ グラ ム を 作成 し て いる 途中 で 、 行 番号 の 間隔 が 不 摘 い に な っ た り 、 行 番号 が 連続 し て 間 に 行 を 
追加 で き な く な っ た と き に は 、renum 命令 を 使い ます 。 


list 
10 print " 行 番号 を " 
12 print "つけ 換え て " 
16 pFint "きれい にし まし ょ よう" 
Ok 
renum 
Ok 
list | 
10 print " 行 番号 を " 
20 print "つけ 換え て " 
30 print "きれ い に し ま し ょ う " 
Ok 


X-BASIC で 扱う 了 予約 語 (変数 名 や 関数 名 に 使用 で き な い キー ワー ド ) は 、 大 きく 分 け て 次 の 種別 
が あり ます 。 

は マジ ド 

ドー ドド が ジン ドド 

シス テム 変数 

関数 
コマ ンド は 、 プ ログ ラム 中 に 記述 する こと は で きま せん 。 ダ イレ クト モー ド で の み 使 用 し ます 。 
これ まで に 説明 し た 命令 (コマ ンド ) の 詳細 は 、 第 4 章 を 参照 し て くだ さい 。 
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@ 文 : 


人 @ 行 : 


@ 行 番号 : 


用 語 の 説明 


文 と は 命令 文 の こと で 、 コ ンピュータ に 対す る 命令 を 与え ます 。 文 に は 、 第 4 章 で 説 
明 す る 命令 や 、 代 入 を 行う 式 な ど が あり ます 。 


行 は 、 コ ンピュータ に 命令 を 与え を る と き の 単 位 で 、 リ ター ン キ ー を 押す まで に 入力 し 

だ た も の を 指し ます 。 1 行 は 255 文 字 以 内 で 、 1 行 に は 1 つ 以 上 の 文 が 含ま れ て いま す 。 
1 行 に 複数 の 文 を 含む 行 を マル チ ス テー トメ ント と 呼び 、 こ の 場合 に は 文 と 文 の 間 を 

コロ ン (: ) で 名 切り ます 。 ま た XX-BASIC で は 大 カッ コ { } に よっ て dim 文中 の 

デー タ を 複数 行 に 分 け て 記述 し た り 、if 文中 で 実行 文 を 複数 行 に わた っ て 記述 する こ 

と も 可能 で す 。 


行 番号 は 、 行 を 複数 個 焦 め て プロ グラ ム に する 場合 に 、 行 の 先頭 に つけ る 番号 で す 。 
行 番号 は 1 一 65535 ま で の 整数 で 、 その プロ グラ ム を コン ピュ ー タ の メモ リ に 記憶 する 
順序 を 表し ます 。 ま た 、 プ ログ ラム の 実行 も 行 番号 順 (番号 の 小さ い 順 ) に 行わ れ ま 
ず 。 


: 一 般 に は いろ いろ な 種類 の 情報 の こと を 指し ます が 、BASIC で は ユー ザー が 指定 す 


る 文字 や 数 値 の こと を いい ます 。 た と えば 、「a=1」 と いう の は 、a と いう 変数 に 1 と 
いう 値 を 代入 する と いう こと で す が 、 こ の 場合 の 1 を デー タ と いい ます 。 
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1.3 X-BASIC の プロ グラ ム ス タ イ ル 


次 の プロ グラ ム を 見 て くだ さい 。 


19  /* Tiny EDITOR ted.bas 
2 の 9 str fname[29] 

3 の 9 str buff[209] 

4 の 9 int fp, fo 

59 ohar CR=13, LEF=19 

69 / キ * 

7 の 9 tit1e( ) 

8 の 9 fninput( ) 

99 fp=fopen(fname, "oc" ) 

199 edit() 


119 foc=fo]ose(fp) 
129 end 
139  /* 


149 funo title( ) 
15 の 9 str dummy 


169 cls 

179 print "これ は 簡易 エディ タ で す 。“ 

189 print "メモ な ど を 作成 する と き に お 使い くだ さい 。" 
199 print "な お 、 す で に 存在 する ファ イル 名 を 指定 し た と き は 、 無 打 " 
299 print "件 に その ファ イル の 内 容 を 削除 し て し まい ます 。 
219 print 

229 print 『" 何 か キ ー を 押し て くだ さい  「": 
239 dummy=inkey$ 

240 cs 

259 endfunc 

269 funo fninput( ) 

279 print "Tnput file name >": 

289 1input fname 

299 endfunc 

399 funoc edit( ) 

319 print "TInput data(END = /)" : print 

329 while buff <> "/" 

339 1input ">"jbuff 

349 ぶ ず buff くう Y/" も hen 

359 furites(buff,fp) 

369 fputc(CR, fp ) 

379 fputoc(LF , fp ) 

389 } 

399 endwhile 


49 の 9 endfuno 


いま まで BASIC を 使っ た こと が ある 人 で も 、 ち ょ っ と 違う ぞ 、 と 感じ 6 の で は な いで し ょ うか 。 
この プロ グラ ム に は 、X-BASIC を 特長 づけ る いく つか の 要素 と 、 ぜ ひ 実 践 し て ほし い 事 柄 (プログ 
ラミ ング の 「 介 潜 )) が 含ま が てい ます 。 

BASIC で は お な じみ の goto 文 や gosub 文 が あり ませ ん 。 X-BASIC で も goto 文 や gosub 文 を 
使っ て プロ グラ ミン グ で きま す が 、 使 わな く て も 不便 な こと は あり ませ ん 。 む し ろ 、 プ ログ ラム の 流 
れ を わか り づ らく する 可能 性 の ある goto 文 、gosub 文 は 、 使 わな いこ と を お すす めし ます 。 

goto 文 に 代わ る も の と し て 、 条 件 判断 に よる 分 岐 (ブロ ッ ク 文 、switch 文 ) や 繰り 返し (for 
ーnext 文 、while-endwhile 文 、repeat 一 until 文 ) を 制御 する 構文 が あり ます 。 ま た 、gosub 文 で 
呼び 出す サブ ルー チン の 代わ り に 、 よ り 独 立 性 の 高い 関数 (fanc 一 endfunc) を 定義 むす る こと が で き 
の 

さら に 、 こ れ も BASIC で は 多用 する マル チ ス テー トメ ント を 使っ て いま せん 。 マ ル チ ス テー トメ 
ント に つい て も 、 goto 文 な ど と 同様 に X-BASIC で 使う こと は で きま す 。 し か し 、 プロ グラ ム を より 
見 や すい も の に する た め に 、 1 行 1 命令 に する こと を お すす めし ます 。 
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この よう に 、X-BASIC は その 独自 の 特長 に より 、 わ か りや すく 、 ま た 修正 (デバ ッ グ ) 作業 の し 
や すい プロ グラ ム の 作成 、 編 集 を 可能 に し て いま す 。 

この 他 に も 、X-BASIC で プロ グラ ミン グ す る た め に 、 必 ず 知 っ て お か な けれ ば な ら な いこ と が あ 
り ま す 。 次 節 以 降 で 詳し く 説 明 し ます 。 


1.4 準備 作業 その 1 


プロ グラ ム で 使う デー タ を し まっ て お く 「 入 れ 物 」 を 、 変 数 と いい ます 。 ま た 、 入 れ 物 に つけ る 名 
前 を 、 変 数 名 と いい ます 。 

X-BASIC で は 、 変 数 を 使用 する と き に は 、 そ の 変数 を これ か ら 使 う ぞ 、 と いう こと を 最初 に 宣言 
し な けれ ば な り ま せん 。 こ れ を 、 変 数 の 宣言 と いい ます 。 ま た 、 変 数 を 宣言 する と き に は 、 そ の 変数 
が どん な デー タ の 入れ 物 に な る の か 、 つ まり 、 変 数 の デー タ 型 も 同時 に 宣言 し ます 。 

デー タ 型 に は 次 の も の が あり ます 。 


整数 型 (int 型 ) -2,147,483,648 か ら 2,147,483,647 ま で の 整数 値 を 扱う 

整数 型 (char 型 ) 0 か ら 255 ま で の 整数 値 を 扱う 

実数 型 (float 型 ) 絶対 値 が 1.1125369292536E-308 か ら 3.5953862697246E 十 308 ま で 
の 倍 精 度 実数 値 を 扱う 

文字 型 (str 型 ) 255 文 字 以 内 の 文字 列 を 扱う 


次 の プロ グラ ム で は 、10 行 か ら 50 行 で 、 そ れ ぞ れ char 型 、int 型 、float 型 、str 型 の 変数 を 宣言 
し 、60 行 か ら 100 行 で 値 を 代入 し て いま す 。 
19 char c 
29 int i 
39 float f 
49 str s 
59 str s max[255] 
69 c=209 
79 i=647685 
89 f=14487895.256 
99 s="X68990" 
109 s max="ABCDEFGHTJKLMNOPQRSTUVWXYZabcdefghijk1mnopqrstuvwsyg" 


119 print oc,」1」f,S,S max 
129 end 
str 型 で 33 文 字 以 上 の 文字 列 を 扱う と き に は 、50 行 の 宣言 の よう に 、 文 字 バ ッ フ ァ の サイ ズ を 指定 
に 求 ず 、 
デー タ 型 の 言 が 省略 され た と き に は 、 その 変数 は 自動 的 に int 型 に な り ま す 。 これ は 、 実 数 値 を 扱 
う プ ログ ラム で は 注意 し な けれ ば な ら な い 点 で す 。 int 型 の 変数 に 実数 値 を 代入 し た と き は 、 計 算 結果 
が 正しく な いも の に な る こと が あり ます 。 
変数 は 、 宣 言 と 同時 に 初期 値 ま 代入 する こと が で きま す 。 


19 char o=206 


初期 値 を 代入 し な いと き は 、 数 値 (int、char、float) 型 の 変数 に は 0 が 、 文 字 (str) 型 の 変数 に 
は null 文字 (文字 数 0 の 文字 列 ) が 代入 され ます 。 
原則 と し て 、 同 じ 名 前 の 変数 を メイ ンプ ログ ラム 中 で 再 宣 言 する こと は で きま せん 。 
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デー タ 型 の 詳細 に つい て は 第 3 草 を 、 ま た 、 変 数 の 宣言 方 法 に つい て は 第 4 章 を それ ぞ れ 参照 し て 
くだ さい 。 


用 語 の 説明 
@ 変 数 : 変 数 と は 、 そ れ 自 体 が 値 を 表す も の で は な く 、 必 要 に 応じ て 値 を 代入 し た り 、 式 の 一 
部 に な っ た りす る も の で す 。 


@ 変 数 名 : 変数 に つけ る 名 前 の こと で す 。X-BASIC で は 、 変 数 名 は 64 文 字 ま で の 英 数 字 の 組み 
合わ せ で す 。 変 数 名 は 、 了 予約 語 を 含ん で いて も か まい ませ ん (和子 約 語 に つい て は 、 次 
料 編 「 子 約 語 表 」 を 参照 し て くだ さい )。 


1.5 制御 の 流れ 


X-BASIC に は 、 プ ログ ラム の 流れ を わか りや すい も の に する た め に 、 い くつ か の 制御 構造 を 持っ 
た 構文 が 用 意 き れ て いま す 。 


1.5.1 条件 に よる 処理 の 分 岐 


ある 一 定 の 条件 に よっ て 、 そ の あと に 実行 する こと を 変え る こと が で きま す 。X-BASIC で は 、if 
文 、switch 文 を 使い ます 。 


・『 文 

「 も し 准 蔵 庫 に ビー ル が あれ ば 、 飲 む 。 な か っ た ら 、 茶 の 間 に 戻る 」 

この よう な 、 条 件 に よっ て その 後 の 行動 (作業 ) を 分 岐 さ きせ る こと は 、 プ ログ ラム 中 で も 頻繁 に 起 
こり ます 。 そ の よう な と き に は 、if 文 Gf 一 then 一 else) を 使い ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 
表す と 、 


. 吾 所 に 行く 
. 准 大 庫 を 開け る 


. if ビー ル が ある then 飲む (終わ り ) else 茶の間 に 戻る (終わり) 
. 終 わり 


IS Co5 hk うつ 呈 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 

X-BASIC の 下 文 の 特長 は 、 分 岐 後 の 操作 を 複数 行 に 渡っ て 記述 で きる と ころ に あり ます 。 た と え 
ば 、「 変 数 8 の 値 が 5 だ っ た ら 、* 十 の 値 を 変数 8 に 代入 し て 、"OK" と 変数 8 の 値 を 表示 させ 、5 
で な か っ た ら 、 "NO" と 変数 a の 値 を 表示 する 」 と いう 分 岐 は 、 


19 int a,x ア 

2 の x=3 

3 の y=19 

4 の 9 a= の 

59 input "Number = "ja 
69 if a=5 then { 

79 8 ニ X+Y 

89 print "OK",a 
99 } else print "NO",a 
199 end 
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と 記述 で きま す 。 


・switch 文 

「 く じ を 引い て 、 1 等 な ら VTR、2 等 な ら ラ ジ カ セ 、 3 等 な ら タ オル セッ ト が も ら え そる 。 そ れ 以 外 
は ハズ レ 」 

ある 条件 で 、 複 数 の 動作 に 分 岐 す る と き に は 、switch 文 (switch 一 case 一 default 一 endswitch) 
を 使い ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 表す と 、 


T。 くじ を 引く < 

2. switch くじ の 中 身 

3 case 1 等 :VTR を も ら う :break (終わり) 

4 case 2 等 ラジ カセ を も ら う :break (終わ り ) 

5. case 3 等 ・ タ オル セッ ト を も ら う :break (終わ り ) 
6 default  : 涙 を の む 
7 . endswitch 
8 


. 終 わり 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
Switch 文 で は 、 す べ て の 条件 に 一 致し な か っ た と き 、default 文 が あれ ば 、 そ れ を 実行 し ます 。 
break 文 は 、switch 文 や for 文 、while 文 、repeat 文 か ら 抜 け 出 す 働き を し ます 。 次 の プロ グラ 
ム の 、30 行 か ら 80 行 と 、90 行 か ら 140 行 で は 、 動 作 が 違っ て きま す 。 


1 の int a 

2 a=1 

39 switoch a 

49 case の : print "の " : break 
509 case 1 : print "1" : break 
609 case 2 : print "2" : break 
79 defau1t : print "27 


89 endswitch 
99 switch a 


199 case の : print "の" 

119 case 1 : print "1" 

129 Case 2 : print "2" 

130 defau1t : print "2" 
149 endswitoh 

159 end 


は じ め の switch 文 で は 、 50 行 だ け を 実行 し ます が 、 次 の switch 文 は 、 110 行 か ら 130 行 まで を 実行 
し で し まい ます :。 


1.5.2 処理 の 繰り 返し 
ある 条件 が 満た され る まで 、 一 定 の 処理 を 繰り 返し 実行 する こと が で きま す 。 X-BASIC で は 、 for 
文 、while 文 、repeat 文 を 使い ます 。 


・for 文 
「 娘 が 生ま れ て か ら 20 才 に な る まで 、 毎 年 1 つ 絵 皿 を 作る 」 
一 定 の 回 数 、 あ る こと を 繰り 返す と き に は 、for 文 (for 一 next) を 使い ます 。 上 の 例 を プロ グラ ム 
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的 な 流れ で 表す と 、 


1. 娘 が 生ま れる 

2. for 娘 の 年 齢 三 0 to 20 (1 つ ず つ 増 や す . 20 回 で 終わ り ) 
き 。 絵 皿 を 作る 

4. next (2. に 戻る ) 

5. 終わ り 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
X-BASIC の for 文 は 、 ル ー プ 回 数 を 決め る 変数 を 1 ずつ 増やす こと し か で きま せん 。 


1 の int i 

20 for i=li to 10 

39 print "X68999 Mt 
49 print "is THE GREAT," 
59 next 

69 end 


・while 文 、repeat 文 
ウ ュ ー ト の エー ス が 出る まで 、 ト ラン プ を 引く 」 
繰り 返し を 終わ ら せ る 条件 は わか っ て いて も 、 何 回 実行 する の か 明確 で な いと き に は 、while 文 
(while 一 endwhile)、repeat 文 (repeat 一 until) を 使い ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 表す 
と 、 


1. トラ ンプ を 引く 
2. while トラ ンプ く > ハ ー ト の エー ス (ハート の エー ス な ら 終 わり ) 
3 トラ ンプ を 引く 
4. endwhile (2. に 戻る ) 
5. 終わ り 
に < 人 4 上 
] . repeat 
の トラ ンプ を 引く 
3. until トラ ンプ ニテ ハート の エー ス ( 1 . に 戻る . ハー ト の エー ス な ら 終 わり ) 
4. 終わ り 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
この 2 つの 構文 は 、 条件 を 判断 する タイ ミン グ が 違い ます 。 while 文 は 、 処 理 を 実行 する 前 に 条件 を 
判断 する の で 、 場 合 に よっ て は ルー プ の 中 身 を 一 度 も 実行 し な いこ と も あり ます 。 これ に 対し 、repeat 
文 は 、 必 ず 処 理 を 実行 し て か ら 条 件 を 判断 し ます 。 し た が っ て 、 ル ー プ の 中 身 を 1 回 は 実行 し ます 。 
また 、 条 件 判断 の 基準 も 、while 文 と repeat 文 で は ちょ っ と 違い ます 。 while 文 は 、 条 件 が 正しい 
と き ( 真 の と き 、 ま た は 、 偽 に な る まで 、 と いい ます ) 処理 を 繰り 返し ます 。repeat 文 は 、 条 件 が 正 
し く な いと き ( 偽 の と き 、 ま た は 、 真 に な る まで 、 と いい ます ) 処理 を 繰り 返し ます 。 
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19 int i 

29 i= の 9 

39 while i<>1 の 9 /* 「i は 19 で は な い 」 が 正しい と き 繰 り 返 す 
4 の 9 print "X68999" 

59 ュ = ュ +1 

69 endrhi1le 

79 end 


10 mt 1 

29 i= の 

39 repeat 

49 print "X68999" 

56 1= ュ +1 

69 unti] i=1 の 9 /* 「i は 1 の 9 で ある 」 が 正しく な いと き 繰 り 返 す 
79 end 


while 文 や repeat 文 を 使っ て 、 い つま で も 繰り 返し を 続け る 無限 ルー プ を 作る こと が で きま す 。 無 
限 ル ー プ を 終わ ら せ る に は 、 ル ー プ の 中 で if 文 と break 文 を 使い ます 。 


19 int a 

29 a=1 

39 while a=1 /* 正しい 

40 input "Number = ": 
59 if i=5 then { 

69 print "Number = 5" 
79 break 

89 } 

99 print "Number = "ii 
199 print "Reenter" 
119 endwhi1e 
129 end 


1。 ぉ 8。 き 流れ を 変え る 


繰り 返し を 実行 する と き に 、 あ る 条件 の と きだ け ル ー プ を 抜け た い 、 ま た は 、 ル ー プ の 中 の 処理 を 
その と きだ け 省 略し た い 、 と いう こと も ある で し ょ う 。 goto 文 を 使え ば 簡単 で す が 、 そ れ で は 行 番号 
に 依存 し た プロ グラ ム に な っ て し まい ます 。 goto の 飛び 先 に 新しい 行 を 追加 し た と き な ど は 、 ち ょ っ 
と 困っ た こと に な り そ う で す 。 

X-BASIC で は 、break 文 と continue 文 を 使い ます 。 


・break 文 
「1 年 間 、 釣 銭 の 1 円 玉 を 毎日 ビン に 入れ る 。 た だ し 、 途 中 で ビン が いっ ぱい に な っ た ら 中 止 する 」 
Switch 文 の と ころ で も 説明 し まし た が 、break 文 は 、 switch 文 や for 文 、while 文 、 repeat 文 か 
ら 強 制 的 に 抜け 出す 働き を し ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 表す と 、 


1. 買物 を し て 釣 銭 を も ら う 

2. for 日 数 三 1 to 365 

3 ビン に 1 円 玉 を 入れ る 

if ビン が いっ ぱい then break (終わ り ) 
5 買物 を し て 釣 銭 を も ら う 

6. next (2. に 戻る ) 

7. 終わ り 
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の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 


中 の まま 和 も a, さ 

29 a= の 

3 の b= の 

49 for i=1] to 199 

59 Da も や > 

69 input " Number = ":b 
7 の 9 8 ニ 8+b 

89 if a>=45 then { 

99 print "a >= 45" 
10609 break 
119 ) 

129 Dint も "ia < 5" 
139 print "More" 

149 next 
159 end 


制御 午 造 が 多重 の 入れ 子 (ネス ト ) に な っ て いる と き は 、break 文 は 、 


抜け 出し ます 。 


19 int 1」J)k 


29 str ss=">>>>>>>Break く くく くく く " 


39 for i= の to 2 


49 PO の 人 W も O 盆 

59 for k= の 0 to 2 

69 if k=1 theri break 
79 PTimt "ネネ 本" ・K 
89 next 

99 print ss 

199 print を る る る る る る る る る る る 人 衝 二 | 
1109 next 

1209 PDT1int "ネネ ネネ 玉林 氷 リ < エ 

139 next 

149 end 


・continue 文 


1.5 制御 の 流れ 


1 つ 上 の レベ ル の ネス ト へ 


「 読 破 す る まで 、 毎 史 『 三 国 志 』 を 読む 。 し か し 、 酒 を 飲ん だ 日 は 読ま ず に 眠る 」 
continue 文 は 、 for 文 や while 文 、repeat 文 の ルレ ループ を 強制 的 に 次 の サイ クル へ 進め ます 。 上 の 例 


を プロ グラ ム 的 な 流れ で 表す と 、 


『 三 国 志 』 を 買っ て くる 
毎晩 読む 

.。 while 読み 終え な い 
酒 を 飲ん だ 


endwhile 
。 終わ り 


sa 5 1 中 5 ょ 5 兄 


then 


(読み 終 を たら 終 わり ) 


continue (3. へ 戻る ) 


(3. へ 戻る ) 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
繰り 返し て 数 値 を 入力 する と き の エ ラー 処理 な ど に 利用 で きま す 。 
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19 int a,b 

29 b=9 

39 repeat 

4 の = の 

59 input "Enter(end=9)> "ja 
69 if a>1999 then { 

79 print "Error!! Too 1arge("jaji")" 
869 continue 

99 } 

199 b=b+a 

119 unti1] a=9 

129 print "Answer : "jb 

139 end 


1.6 準備 作業 その 2 


同じ デー タ 型 を も つ 複 数 個 の デー タ の 集まり を 、 配 列 と いい ます 。 マ ンション を 例 に 配列 の 考え 方 
を 説明 し ます 。 


た と えば 、 上 の よう に 101 号 室 か ら 105 号 室 ま で 5 部 屋 が ある も の と し ます 。 各部 屋 に は いろ いろ な 
家族 構成 が あり ます 。 


101 号 ……3 人 家族 
102 号 ……4 人 家族 


105 号 …… 2 人 家族 


この と き 、101 号 室 な どの 部 屋 番号 が 変数 、 中 に 住ん を で いる 人 数 が デー タ (その 変数 の 値 ) に あたり 
まわ も 

各部 屋 は ひと つ ひ と つが 変数 だ と 考え られ ます が 、 す べ て 別 の 変数 に する と 、 デ ー タ の 入力 な ど が 
繁 雑 に な り ま す 。 


10 int a,b,c,d,e 
20 a=19 : b=29 : c=39 : d=4 の : e=59 


これ を 配列 と し て 宣言 すれ ば 、 デ ー タ の 入力 や 利用 が 単純 に な り ま す 。 
10| d や Sn も a(4)= ニ 1 10 。 20 。 30 。 49 59 1 s in も や 
2 の For ii= の to 4 


3 の PPEn も Pa" 55 0 コラ 多 (は) 
49 next 


配列 変数 は 、x (0)、x(1) の よう に 、 変数 名 の 後に 括弧 で 番号 を くく っ た 形 で 用 いま す 。 括弧 内 の 番 
号 は 添字 と いい 、 配列 の 中 の 何 番目 の 要素 で ある か を 表し ます 。 た と えば x (2) は 、x と いう 配列 変数 
の 0 番目 の 要素 か ら 数 えて 2 番目 の 要素 (x (0)、x(1) 、x (2) と 数 える) と いう 意味 に な り ま す 。 
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Il.6 準備 作業 その 2 


プロ グラ ム 内 で 配列 を 使う に は 、「 変 数 の 宣言 」 と 同じ く あ ら か じ め dim 命令 に よる 「 配 列 の 宣言 
を 必ず 最初 に 行っ て くだ さい 。 配列 の 宣言 と は 、 配列 変 数 の 名 前 と 配列 に 入れ る デー タ の 型 と 個数 を 
決め て や る こと で 、 


dim 型 宣言 変数 名 (添字 の 最大 値 ) 


と いう 書式 で 行い ます 。 型 宣言 を 省略 する と int 型 に な る の は 、 変 数 の 場合 と 同様 で す 。dim 命令 に 
つい て は 、 第 4 章 で も 説明 し て あり ます の で 、 そ ちら も 参照 し て くだ さい 。 

添字 は 0 か ら 始 まる の で 、 配列 変数 が 持つ 要素 数 は dim 命令 で 指定 する 添字 十 1 に な り ま す 。 た と 
えば 、 中 m a(5) と 宣言 する と 、 a(0) か ら a(5) ま で の 6 つの 配列 が 使 を る よう に な り ま す 。 添字 は メ 
モリ が 不足 し な い 範 囲ま で と る こと が で き 、 0 か ら 65535 の 値 を 使う こと が で きま す 。 

数 値 (int, char,float) 型 の 配列 に つい て は 、 各 要素 で 扱え る 数 値 の 範囲 は デー タ の 型 に 応じ て 決 
まり ます が 、 文 字 (str) 型 は 各 要 素 で 扱え る 文字 列 の 長 さ を 文字 バッ ファ の サイ ズ に より 指定 で きま 
す 。 文字 バ ッ フ ァ の サイ ズ を 指定 し な い 場 合 は 3 2 文字 と 見 な され ます 。 こ れ よ り 短 い 文 字 列 し か 代 
入 さ れ な い 場 合 は 問題 あり ませ ん が 、 も っ と 長い 文字 列 が 代入 され る こと を 考え な けれ ば な ら な い 場 
合 は 次 の よう に し て 文字 バッ ファ の サイ ズ の 最大 値 (1 一 255) を 指定 し ます 。 


dim str a(10)[200] 


これ で 、 配列 の 要素 a(0) か ら a(10) に は それ ぞ れ 最大 200 文 字 ま で の 長 さ の 文字 列 を 代入 し て 使う 
こと が で きる よう に な り ま す 。 
次 に 、 先 ほど の マン ショ ン が 5 階 建 て だ と する と 、 


1 階 に 5 部 屋 で 5 階 で 25 部 屋 に な り ま す 。 
1 階 101 一 105 号 室 
2 階 201 一 205 号 室 
5 階 501505 号 室 


つま り 、 
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の よう に な り ま す 。 こ の よう な 形式 を 、 2 次 元 配 列 と いい ます 。 さ ら に 、 こ の マン ショ ン が 奥 に る 部 
屋 が あれ ば 、 3 次 元 配列 に な り ま す 。 


複数 の 添字 を 使っ た 場合 、 配 列 は 添字 の 個数 に 応じ た 次 元 に な り ま す 。 
だ と 


dim d(2,3) 


と いう 宣言 で は 、 以 下 に 示す よう な 二 次 元 ( 縦 方 向 と 横 方 向 の 二 次 元 ) の 配列 が と られ ます 。 


d(0,0) d(0,1) d(0.2) d(0,3) 


d(1,0) d(1,1) d(1,2) d(1,3) 


d(2.0) d(2.1) d(2,2) d(2,3) 


dim y(2,3,4) 


の よう な 三次 元 の 配列 に つい て は 、 縦 方 向 と 横 方 向 に 奥行 き が 加わ っ た 直方 体 を イメ ー ジ し て くだ さ 
い 。 

この よう に 、 配列 の 次 元 は 、 い くつ 添字 を 指定 する か に よっ て 決ま り ま す 。 次 元 は 、 理論 的 に は 255 
次 元 ま で と れる こと に な っ て いま す が 、 実 際 に は プロ グラ ム の 1 行 の 長 さ で 指定 で き な い の で 、 も っ 
と 少な く な り ま す 。 

以下 に 、 い ろ い ろ な 配列 変数 の 例 を あげ ます 。 


dim char a(12)……… 整数 型 (char 型 ) の 配列 変数 ( 妥 素 の 数 13) 


dim str b(4) ………… 文字 型 (str 型 ) の 配列 変数 (要素 の 数 5) 
dim str f(3.3) ……… 二 次 元 文字 型 (str 型 ) の 配列 変数 (要素 の 数 4X4 三 16) 
dim n(2.5.3) ………… 三次 元 整数 型 nt 型 ) の 配列 変数 (要素 の 数 3X6X4 三 72) 
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1.7 汎用 的 な 部 品 を 作る 


1.7 汎用 的 な 部 品 を 作る 


プロ グラ ム は 、 大 き な プ ログ ラム に な れ ば な る ほど 、 わ か り に くく 、 ま た 作成 、 修 正 (デバ ッ グ ) 
も むず か し く な り ま す 。 こ の た め 、 プ ログ ラム を 小さ な 部 品 単位 で 作成 すれ ば 、 だ れ に で も わか りや 
すく 、 ま た 修正 (デバ ッ グ ) も 容易 な プロ グラ ミン グ が 可能 と な り ま す 。 こ の こと を モジ ュー ル 化 と 
いい ます 。 

X-BASIC で は 、 こ の 部 品 単位 の プロ グラ ム 作 成 を func 一 endfunc を 使っ て 関数 と し て 定義 で き 
る よう に な っ て いま す 。 

func 一 endfunc を 使っ た X-BASIC の プロ グラ ム は 次 の よう に な り ま す 。 


変数 、 配 列 変数 の 宣言 


処理 メイ シン デ ロ グ ラム 
end 
func 一 
) 関数 1 
endfunc 
func 一 
) 関数 2 
endfunc 


実際 の プロ グラ ム 例 を 示し ます 。 


19 /* 随 乗 を 求め ます 
の ラ 


2 の 9 /* メイ ンプ 

39 ね も 、 る & 

49 float b 

59 input " 階 乗 を 求め た い 数 値 を 入力 し て くだ さい --->"ja 

69 b=fact(a ) /* funo-endfunc で 定義 され た fact と いう 関数 に 引数 sa を 渡し て 
呼び 出し ます 

79 | の 0 0M に 

89 print ai" の 随 乗 は ":b:" に な り ま す " 

99 end 

199 /* 

119 /* fact と いう 関数 を 定義 し ます 

129 /* 

13 の 9 /* ここ で は ロー カル 変数 c に よる 再帰 呼び 出し を 使用 し て いま す 

149 /* ロー カル 変数 は その 使用 され る 関数 (func-endfunc で 定義 され た 関数 ) 内 で 有 
効 な 変数 で す 

15 の 6 /* つま り func-endfunc 内 で 宣言 (使用) され た ee 
16 の /* ま 避 れ 選対 し 、 メ イシ デ ロ ダ ラム 中 で 宣 災 (使用 れ た 変数 a き 、b を グロ ロー バル 
変数 と 呼び ます 

179 /* グロ ー バ ル 変 数 は func~-endfunc で 定義 され た RS 

(9 2 ロー カル 衣 数 は その 定義 され た 関数 内 で し か 使用 で きま 

* ネ 

290 func float faot(oiint) 

210 1f ず o=1 も hen pint cej:re も turn(1) 

220 役 め 委 和 も 人 @1 

239 /* 


249 /* return 命 令 に より 再帰 呼び 出し (fact 関 数 (自分 自身 ) に 引数 c を 渡し て 呼び 出 
し で いま すず す ) を 行っ て ゆま すず 

259 /* 結果 と し て 、c*(c-1)*(o-2)*(o-3)*...* ネ 3*2*1 の 値 が 戻り 値 と し て return 命 令 に 
より 返さ れ ま す 


269 /* 
279 return( faot(C-1 ) *o ) 
280 endfuno 
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1 の 9  /* Tiny EDITOR ted.bas 
29 str fname[209] 

3 の 9 str buff[200] 

49 int fp, fc 

59 char CR=13, LE=19 
69 /* 

7 の 9 title( ) 

89 fninput( ) 

99 fp=fopen(fname, "oc" ) 
199 edit() 

119 fo=fo1ose( fp ) 

129 end 

139 /* 

149 funo title() 

159 str dummy 


169 cls 

179 prin も t "これ は 簡易 エディ タ で す 。“ 

189 print "メモ な ど を 作成 する と き に お 使い くだ さい 。" 
199 print "な お 、 す で に 存在 する ファ イル 名 を 指定 し た と き は 、 無 条 
290 print "件 に その ファ イル の 内 容 を 削除 し て し まい ます 。 
210 print 

229 print " 何 か キ ー を 押し て くだ さい 「: 
239 dummy=1inkey$ 

240 c1s 

259 endfuno 

269 funoc fninput( ) 

279 print "Tnput fi]e name >「: 

280 1input fname 

299 endfunc 

399 funo edit( ) 

319 prin も “Tnput data(END = /) " : print 

329 Wh1Te bufE <> "/" 

339 1 の ADM も 、 "> SbuF お 

349 | Du < が PC で he な 

359 fwrites(buff,fp) 

369 fputc(CR,fp ) 

379 fputo(LF, fp ) 

380 } 

390 endwhile 


499 endfunc 


1.8 プロ グラ ム の 保存 と 再生 


プロ グラ ム は 、 コ ンピュータ の メモ リ に 記憶 され ます 。 し か し 、 コ ンピュータ の 電源 が " 切 "(OFF) 
に な る と その プロ グラ ム は 消え て し まい ます 。 こ の た め 、 プ ログ ラム は ディ スク な どの 外部 記憶 装置 
に 一 旦 保存 し て 、 必 要 が あれ ば 再生 し な けれ ば な り ま せん 。 

ここ で は プロ グラ ム を ディ スク に 保存 する 方 法 と 、 保 存 き され た プロ グラ ム を 再生 する 方 法 を 説明 し 
ます 。save、save@、load、load@、files 命令 を 使い ます 。 


1.8.1 プロ グラ ム の 保存 


プロ グラ ム を ディ スク に 保存 する こと を セー ブ (save) と いい ます 。 保 存する と き は 、 あ と で その 
プロ グラ ム が わか る よう に 名 前 (ファ イル 名 と いい ます ) を つけ ます 。 

プロ グラ ム を 入力 する と 、 コ ンピュータ の メモ リ に は 、 そ の 内 容 が 記憶 され て いま す 。 し か し 、 電 
源 を 切っ た り 、X-BASIC を 終了 させ る と 、 そ の プロ グラ ム は 消え て し まい ます 。 保存 する 必要 が あ 
る ブロ グラ ム は 必ず セー プ し て くだ さい 。 

また 、 プ ログ ラム を 実行 する 前 に も 、 プ ログ ラム の 病 走 に 備え て セー プ し て お いた ほう が いい で し 
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I.8 プロ グラ ム の 保存 と 再生 


5 
それ で は セー ブ の 方 法 を 説明 し ます 。 
入力 待ち 状態 か ら 、 
save "ファ イル 名 " 同 


と 入力 し ます 。 
ファ イル 名 は 、 半 角 文 字 で 18 文 字 以 内 (た だ し 、 識 別 で きる の は 8 文字 以内 ) で 指定 し ます 。 た と 
えば 、 フ ァイル 名 を 「TEST」 と すれ は ば 、 


save "TEST" 病 | 


と な り ま す 。 こ の 例 で は 、 ド ライ ブ の 指定 を し て いま せん の で 、 自動 的 に X-BASIC を 起動 し た ディ 
スク に 保存 され ます 。 
ドラ イブ B に 保存 し た いと き は 、 フ ァイル 名 の 先頭 に 「B : 」 を つけ ます 。 


save "BB: TEST" 


ファ イル 名 に は 拡張 子 を つけ る こと が で きま す 。 フ ァイル 名 の あと に 「. 」 と それ に 続く 半角 文字 3 
文字 以内 で 指定 し ます 。 X-BASIC で 拡張 子 を 省略 し て セー ブ し た プロ グラ ム に は 、 自動 的 に 「. bas」 
と いう 拡張 子 が つき ます 。 

ファ イル 名 に つい て は 別冊 の 「Human68k ユー ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 

save 命令 で は 、 プ ログ ラム を アス キー (テキ スト ファ イル ) 形式 で セー プ し ます 。 セ ー プ され る 順 
序 は 、 行 番号 の 小さ い 順 に な り ます 。 

「@」 オ プシ ョ ン を 指定 する と 、 行 番号 を 省略 し た 形 で プロ グラ ム が セー プ ブ さ れ ま す 。 


save@ "B:TEST"|Jl 
1.8.2 プロ グラ ム の 再生 


プロ グラ ム を ディ スク か ら 再 生 す る こと を ロー ド (load) と いい ます 。 

それ で は ロー ド の 方 法 を 説明 し ます 。 

すでに メモ リ に プロ グラ ム が ある 場合 は 、 ロ ー ド する こと に よっ て その プロ グラ ム は 消さ きれ ま す の 
で 、 注 意 し て くだ さい 。 入 力 待ち 状態 か ら 、 


load "B: TEST" 


と 入力 し まず 

この 例 で は 、 ド ライ ブ B に ある 「TEST.bas」 と いう ファ イル 名 の プロ グラ ム を ロー ド し ます 。 

]oad 命令 も 「@」 オプ ショ ン が 指定 で きま す 。 た だ し 「save@」 で セー プ さ れ た プ ブログ ラム し か 使 
えま せん 。 

1oad@ 命 令 で は 、save@ 命 令 で セー プ ブ され た プロ グラ ム に 任意 の 行 番号 が つけ れ ま す 。 

また 、 すでに メモ リ 上 に プロ グラ ム が ある と き に 、 load@ 命 令 で ロード さ れ た プロ グラ ム を 、 マ ー 

ジ (混合 、 追 加 する こと が で きま す 。 

た と えば 、 行 番号 10 一 100 の プロ グラ ム が メモ リ 上 に ある と き 、 ド ライ ブ B か ら 「TEST.bas」 と 
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いう 行 番号 が 省略 され た プロ グラ ム を 110 行 目 か ら ロ ー ド する と 次 の よう に な り ま す 。 


10 
20 


メモ リ 上 の プロ グラ ム 
90 


100 
load@ "B : TEST”110 | 
list 則 

10 

20 


メモ リ 上 の プロ グラ ム 
90 
100 
110 
「TEST. bas」 が マー ジ さ れる 
200 


1.8.3 保存 し た ファ イル の 確認 


ディ スク に 保存 され て いる ファ イル の 一 覧 を 見 る た め に files 命令 が あり ます 。 
次 の よう に 入力 し て くだ さい 。 


fles "BB:" 回 


ドラ イブ B の ディ スク の ファ イル 一 覧 が 表示 され ます 。 ま た 、 フ ァ ン クシ ョ ン キ ー の IF 1 | キー を 
押し て も 同じ こと が で きま す 。 た だ し 、 こ の 場合 は 、 カ レン トド ライ ブ (現在 作業 中 の ドラ イブ ) の 
ディ スク の ファ イル 一 覧 が 表示 され ます 。 


files"b:" 

***** KK バイ ト が 使用 可能 で す 
"R: \BRSSfNPLE1 .BHS”  /* 
" 昌 : ギ BRHS ギ SRMPLE2 .BHS"  /* 
"HH: ギ BRS 科 S .BHS"  /* 
" 朋 : キ BRHS 衝 REP .BRS”  /* 
2 .BHS"  /* 

\BRS ギ 5RRPH .BRS” 7/* 

' SG .BRS”"  /* 
" 昌 : キ BHSTPHOTOZ .BRS"  /* 

呈 "HI YBRGWPLOT03 .BRS"  /* 

年 
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コラ ム X-BASIC の いろ いろ な 起動 


1. コマ ンド モー ド か ら の 起動 


本 機 で は 、 初 期 設 定 で は ビジ ュ ア ル シ ェ ル (デス クト ッ プ 画面 ) が 起動 する よう に な っ て いま す 。 
コン ピュ ー タ の 操作 に 慣れ て きた ら 、 も う ひ と つの 世界 、Human68k の コマ ンド モー ド か ら XX- 
BASIC を 起動 し て み ま し ょ う 。 

ビジ ュ ア ル シ ェ ル (デス クト ッ プ 画面 ) を な が め て みる と 、 タ ンク (戦車 ) の アイ コン が 見 えま す 。 
これ が 、Human68k の コマ ンド モー ド へ の 入口 で す 。 こ の 「COMMAND.X」 と いう アイ コン を 、 マ 
必 久 で ポイ ント し て 、 左 ポタ ン で ダブ プル クリック し て ぐだ さい ゆい 。 

し ば らく する と 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) が 消え て 、 


A> 
と いう 文字 (プロ ンプ ト ) が 表示 され 、 そ こ で カー ソル が 点 減 し て いる は ず で す 。 キーボード か ら 、 
basic 


と 入力 し て (これ は 英 大 文字 で も か まい ませ ん ) リタ ー ン キー を 押し て くだ さい 。X-BASIC が 起動 
し まお 5。 
で は 、-BASIC を 終了 し まし ょ う 。 キ ー ボ ー ド か ら 、 


system |J (| は リタ ー ン キー の こと ) 


と 入力 し て くだ さい 。 ま た は ファ ンク ショ ン キ ー の [E10] キ ー を 押し て か ら リ ター ン キ ー を 押し ます 。 
X.BASIC が 終了 し て 、Human68k の コマ ンド モー ド に 戻り ます 。 
コマ ンド モー ド に 戻っ た ら 、 今 度 は 、 


exit 


と 入力 し 、 メ ッ セ ー ジ が 表示 され た ら 何 か キー を 押す か 、 マ ウス の ボタ ン を クリ ッ ク し て くだ さい 。 
ビジ ュ ア ル シ ェ ル (デス クト ッ プ 画面 ) に 戻り ます 。 

Human68k の コマ ンド モー ド で は 、 いろ いろ な コマ ンド が 使え ます 。 また 、 シ ステ ム 起 動 寺 に コマ 
ンド モー ド に な る よう に 、 環 境 を 設定 する こと も で きま す 。 詳細 は 、「Human68k ユー ザー ズ マ ニュ 
アル 」 を 参照 し て くだ さい 。 


2。 プ ログ ラム の 自動 実行 
X-BASIC で は 、 起動 時 に 自動 的 に ファ ンク ショ ン キ ー な どの 初期 設定 を 行う プロ グラ ム を ロー ド 


し て 実行 する こと が で きま す 。 た だ し 、 こ れ ら の 各種 初期 設定 を 行っ た 後 、 こ の プロ グラ ム の リス ト 
は 自動 的 に メモ リ 上 か ら 消 そえ ます 。 
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コラ ム X-BASIC の いろ いろ な 起動 


コマ ンド モー ド で プロ ンプ ト が 表示 され て いる と き 、 
basic test.bas 


と 入力 すれ ば 、X-BASIC の 起動 後 、 プ ログ ラム "test.bas" を ロー ド し て 実行 し ます 。 抜 張子 が ".bas” 
の と き に は 、 拡 張子 は 省略 で きま す 。 も し 、 同 じ デ ィ レ クト リ に "autorun.bas" と いう 名 前 の プ ブログ 
ラム が あれ ば 、 単 に 


basic | 


と 入力 する だ け で 、X-BASIC の 起動 後 、 自 動 的 に プロ グラ ム "autorun.bas” を 実行 し ます 。 
一 般 に 、Human68k の コマ ンド モー ド か ら X-BASIC を 起動 する た め の 書 式 は 、 次 の よう に な り 
ます 。 
basic 〔[< ス イッ チ >〕 〔〔 く < ドラ イブ 名 >〕(〔 ン ス 名 >] く < プロ グラ ム 名 >]〕 


< プロ グラ ム 名 > の 抜 張子 が ". bas" の と き 、 拡 張子 は 省略 で きま す 。 


3 。 起動 時 の スイ ッ チ 
Human68k の コマ ンド モー ド か ら X-BASIC を 起動 する と き に は 、 次 の スイ ッ チ を 指定 で きま 
す 。 


グ f フリー エリ アサ イズ の 指定 
グ w 水平 画面 サイ ズ の 指定 
グ c コン フィ ギュ レー ショ ン フ ァイル の 指定 


次 節 で 説明 する コン フィ ギュ レー ショ ン フ ァイル の 中 で も 、/ f スイ ッ チ 、/w ス イッ チ と 同様 の 設 
定 が で きま す 。 
・ ノ プイ スイッチ 
例 ) basic /f160 


X-BASIC で 使う フリ ー エ リア を キロ バイ ト (KB) 単位 で 指定 し ます 。 た だ し 、 こ の 指定 で 確保 き 
れる メモ リ は 、 プ ログ ラム (テキ スト ) と 変数 ・ 配 列 変数 な どの た め の エ リア で す 。FM 音源 の トラ 
ッ ク バ ッ フ ァ な ど 外 部 関数 で 使う エニ リア や 、 チ ャ イル ド プ ロ セ ス 実 行 の た め の エ リア は 含ま れ ま せん 。 
の W スイ オッ チ 

例 ) basic /w64 


水平 画面 サイ ズ 、 つ まり 、 画 面 の 横幅 に 表示 で きる 文字 数 ( 桁 数 ) を 指定 し ます 。 指定 で きる の は 64 
か 96 で す 。 そ れ 以 外 の 数 値 で は 、 エ ラー に な り ま す 。 


28 


4. オリ ジ ナ ル X-BASIC 


・ グ c スイ ッ チ 
〆 ン c ス イッ チ に つい て は 、 次 節 で 詳し く 説 明 し ます 。 


これ ら の スイ ッ チ は 、 同 時 に 設定 する こと も で きま す 。 


例 ) basic /w96 /f200 


4. オリ ジ ナ ル X-BASIC 


X-BASIC は 、 起 動 時 に スイ ッ チ を 指定 し な けれ ば 、X-BASIC 本 体 ("basic.x") と 同じ ディ レク 
トリ 内 の "basic.cnf" と いう ファ イル を 探し ます 。 こ れ は 言い 換え れ ば 、X-BASIC は 常に 、 


basic  /cbasic.cnf 


と いう スイ ッ チ を 指定 し て 起動 し て いる 、 と いう こと で す 。 "basic.cnf" に は 、 X-BASIC を 使う 上 で 


の いろ いろ な 動作 環境 を 設定 し て あり ます 。 こ の よう な ファ イル を 、 一 般 に コン フィ ギュ レー ショ ン 
ファ イル と 呼び ます 。 コ ン フ ィ ギ ュ レ ーション ファ イル が な いと 、X-BASIC は 起動 し ませ ん 。 
あら か じ め 用 意 き され て いる "basic.cnf" の 内 容 は 次 の よう に な っ て いま す 。 


FREE 三 128 
WIDTH 64 
BEEP = ON 
CAPS 三 OFF 
FUNC = AUDIO 
FUNC = GRAPH 
FUNC = MOUSE 
FUNC = MUSIC 
FUNC = SPRITE 
FUNC = STICK 
FUNC = IMAGE 


>=* の 左側 は 、X-BASIC の コン フィ ギュ レー ショ ン フ ァイル の 中 で 通用 する コマ ンド と 考え て くだ 


さい 。"=" の 右側 は 、 コ マン ド に 与え る 引数 で す 。 
それ ぞ れ に つい て 、 説 明 し ます 。 
・FREE 
例 ) FREE = 160 


X-BASIC で 使う フリ ー エ リア を キロ バイ ト (KB) 単位 で 指定 し ます 。 た だ し 、 こ の 指定 で 確保 き 
れる メモ リ は 、 プ ログ ラム (テキ スト ) と 変数 ・ 配 列 変数 な どの た め の エ リア で す 。FM 音源 の トラ 
ッ ク バ ッ フ ァ な ど 外 部 関数 で 使う) エニ リ ア や 、 チ ャ イル ド プ ロ セ ス 実 行 の た め の エ リア は 含ま れ ま せ 
ん 。/f スイ ッ チ と 同じ も の で す 。 
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・WIDTH 
例 ) WIDTH = 96 
水平 画面 サイ ズ 、 つ まり 、 画 面 の 横幅 に 表示 で きる 文字 数 ( 桁 数 ) を 指定 し ます 。 指 定 で きる の は 
64 か 96 で す 。 そ れ 以 外 の 数 値 で は 、 エ ラー に な り ま す 。/w スイ ッ チ と 同じ も の で す 。 
・BEEP 
例 ) BEEP = ON 


エラ ー の と き な ど に ビー プ 音 を 鳴ら すか どう か を 、ON また は OFF で 指定 し ます 。 


・CAPS 
例 ) CAPS = OFF 
X-BASIC の 予約 語 の 表示 方 法 を 指定 し ます 。 大 文字 で 表示 する に は ON、 小文字 で 表示 する に は 
OFF を 指定 し ます 。 
・FUNC 
例 ) FUNC = SPRITE 


組み 込ま れる 外部 関数 を 指定 し ます 。 外 部 関数 は 、X-BASIC の 起動 時 に いっ し ょ に メモ リ に ロー 
ド さ れ 、 常 駐 す る 関数 の こと で す 。X-BASIC で は 、 あ ら か じ め い くつ か の 外部 関数 を 用 意 し て いま 
す 。 拡張 子 は すべ て ”".fnc" と な っ て いま す 。 


AUDIO ………… ADPCM 制御 の 関数 

GRAPH ……… グラ フィ ッ ク 制 御 の 関 数 

MOUSE ……… マウ ス ・ ト ラッ クボ ポー ル 制 御 の 関数 
MUSIC ………… FM 音源 制御 の 関数 

G 戸 氏 | 下 選 Ei ei スプ ライ ト 制 御 の 関 数 

STICK ………… ド ジョ イス ティ ッ ク 制 御 の 関数 
IMAGE ………… 画像 処理 制御 の 関数 


(IMAGE は 、 別 売 の 周辺 機器 カラ ー イ メー ジュ ニット CZ-6VTT1 用 の 関数 で す ) 


これ ら の ファ イル は 、 コ ン フ ィ ギ ュ レ ーション ファ イル と 同じ ディ レク トリ に な けれ ば な り ま せん 

ノ c スイ ッ チ を 使え ば 、"basic.cnf" 以 外 の ファ イル を コン フィ ギュ レー ショ ン フ ァイル と し て 指定 
で きま す 。 こ れ に よっ て 、 必要 な 外部 関数 だ け を 組み 込ん だ 、 コ ン バ パクト な X-BASIC を 作る こと が 
代 き 水 が 。 

コン フィ ギュ レー ショ ン フ ァイル は 、 ユ ー ザ ー が 簡単 に 作成 で きる テキ スト ファ イル 形式 で す 。 

"basic.cnf" を 書き か えた り 、 新 た に コン フィ ギュ レー ショ ン フ ァイル を 作成 する と き に は 、 ス クリ 


に 】 
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6. BASTOC 


ー ン エディ タ ED を 使い ます 。 
Human68k の コマ ンド モー ド で プロ ンプ ト が 表示 され て いる と き に 、 


ed a:\basic2\ basic.cnf 


と 入力 する と 、ED が 起動 し て 、"basic.cnf" を 読み 込み 、 修 正 で きる よう に な り ま す 。ED に つい て 
の 詳細 は 、「Human68k ユー ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


5. 拡張 外部 関数 


X-BASIC は 、 い ろ い ろ な 制御 午 造 と 、 ロ ー カ ル 変 数 を 扱え る 関数 の 定義 に よっ て 、 行 番号 に 依存 
し な い プ ログ ラム を 作成 し や すく な っ て いま す 。 ロ ー カ ル 変 数 を 扱え る メリ ッ ト は 大 きく 、 作 成 し た 
関数 は 、 よ り 汎 用 性 の 高い も の に な り ま す 。 

頻繁 に 利用 する 関数 は 、 拡 張 外部 関数 と し て 、XX-BASIC に 組み 込ん で お きた いと ころ で す 。 そ れ 
に は 、 別 売 の 「C Compiler PRO-68K」 に 付属 し て いる BASIC-C コン バー タ 「XBAStoC (以下 、 
BASTOO) 」 を お 使い くだ さい 。 BASTOC を 使う た め に 、C 言 語 や アセ ン ブ リ 言語 の 知識 は 必要 あ 
り ま せん 。X-BASIC で 作っ た 関数 を 、 BASTOC が C 言 語 の ソー スプ ログ ラム に コン バー ト (変換 ) 
馬 衝 く ま :⑳8 

た だ し 、BASTOC で コン バー ト す る た め に 、 注 意 し な けれ ば な ら な いこ と や 、 制 限 され る 事柄 も 
あり ます 。 


6 . BASTOC 


X-BASIC は 、 そ の 制御 重 造 や 関数 の 使い 方 な ど で 、C 言語 に 近い 仕様 を も っ た BASIC で す 。 し 
か し 、BASIC と C 言 語 は も と も と の 設計 思想 が 大 きく 違っ て いま す 。 ま た だ た 、BASTOC は 、 コ ン バ 
ー ト する 過程 で 独自 の 変数 な ど を 生成 し ます 。 そ の た め 、BASTOC を 使う 上 で 守ら な けれ ば な ら な 
い 制 限 が 発生 し て し まい ます 。 詳 細 は 、 別 売 の 「C Compiler PRO-68K」 同 梱 の マニ ュ ア ル を 参照 し 
て くだ さい 。 


・ 変 数 名 、 関 数 名 の 制限 
次 に 示す も の は 、 変 数 や 関数 の 名 前 と し て 使用 で きま せん 。 


先頭 が S で 6 桁 の 数 字 が 続く も の 例 ) S012345 
先頭 が L で 6 桁 の 数 字 が 続く も の 例 ) LO012345 


先頭 が b- で は じ ま る も の 例 ) b_nanja 
外部 関数 の 名 前 と 同じ も の 例 ) line 
・ 配 列 代 入 の 制限 


宣言 を し た あと で 代入 で きる 配列 変数 は 、 1 次 元 配 列 だ け で す 。 2 次 元 以上 の 配列 変数 は 、 宣 言 時 
に 代入 (初期 化し て くだ さい 。 


例 ) 10 dim a(10,10) っ 10 dim a(10,10)= ニ (1,2.3,4,5,6,7} 
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20 a= ニ {1,2,3,4,.5,6,7) 


・func--endfunc に 関す る 制限 
関数 の 引数 の 型 が int 型 の 場合 、float 型 の 数 値 を 直接 渡し て は いけ ませ ん 。int 関数 で 変換 し て く 
だ さい 。 


例 ) 10 float a 10 float a 
20 a 三 123.456 20 a 三 123.456 
30 test(a) /* No goodl つ 30 test(int(a) ) 
80 end 80 end 


90 func test( data:int) 90 func test(data:int) 


また 、 関 数 内 で ロー カル 変数 と し て 宣言 し た str 型 の 変数 は 、 戻 り 値 と し て 使う こ と は で きま せん 。 
str 型 の 変数 を 戻り 値 に する 場合 は 、 グ ロー バル 変数 を 使用 し て くだ さい 。 


例 ) 10 str sa,sb 10 str sa,sb 
20 sb 三 test( 123) 20 sb 三 test( 123 ) 
80 end 80 end 
90 func str test(i:int) 90 func str test(i:int) 
100 str ss 100 str ss 
190 return(ss) /* No goodl! 180 sa 三 ss 
200 endfunc 190 return(sa) 


200 endfunc 
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7. Human68k の 環境 設定 


X-BASIC の "basic.cnf" と 同じ よう に 、 Human68k に も "CONFIG.SYS" と いう シス テム 構 委 
用 ファ イル (コン フィ ギュ レー ショ ン フ ァイル ) が あり ます 。 こ の CONFIG.SYS" に よっ て 、 シ 
ステ ム の 環境 を 設定 し た り 、 デ バイ ス ド ラ イ バ の 組み 込み な ど を 行い ます 。X-BASIC で も 外部 関数 な 
ど を 利用 する と き は 、 デ バイ ス ド ラ イ バ と し て 次 の よう な も の を 組み 込ん で お く 必 要 が あり ます 。 


・ADPCM 制 御 の 関数 … PCMDRVSYS 

・FM 音 源 制御 の 関数 … OOPMDRVSYS 

・ 浮 動 小 数 点 演算 … FLOAT1.X ま た は FLOAT2.X 
・ か な 漢字 変換 を 利用 する と き … ASK68K.SYS 

・ プ リン タ を 利用 する と き … PRNDRV.SYS な ど 


な お 、 標 準 で 用 意 き れ て いる "CONFIG.SYS" で は 、 こ れ ら の デバ イス ドラ イ バ が 組み 込ま れる 
よび 人 だ さっ で ゆま す 。 


シス テム 構築 用 ファ イル は 、 ユ ー ザ ー が 簡単 に 作成 で きる テキ スト ファ イル 形式 で す 。 "CONFIG. 
SYS” を 書き か を える と き に は 、 ス クリ ー ン エディ タ ED を 使い ます 。 
Human68k の コマ ンド モー ド で プロ ンプ ト が 表示 され て いる と き に 、 


ED A:\CONFIG.SYS 


と 入力 する と 、ED が 起動 し て 、"CONFIG.SYS" を 読み 込み 、 修 正 で きる よう に な り ま す 。"CONFIG.SYS" 
や テッ バイ ス ド ラ イ バ 、ED の 使い 方 の 詳細 に つい て は 「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 参照 し 
G ぐだ さき MS 
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この 章 で は 、 主 に 外部 関数 に よっ て 実行 で き る 機能 に つい て 説明 し ます 。 

外部 関数 は 、 本 機 の 持つ いろ いろ な 機能 を X-BASIC か ら 利用 する た め の も の で す 。 外部 関数 に よ 
っ て 本 機 の ほとん どの 機能 を 引き 出す こと が で きる 、 と いえ る で し ょ う 。 こ こ で は 、 次 の も の に つい 
て 詳し く 説 明 し ます 。 


・ 画 面 制 御 (グラ フィ ッ ク 、 ス プラ イト ) 
・FM 音源 制御 

・ 音 声 サ ンプ リン グ (ADPCM) 

・ フ ァイル 操作 


ファ イル 操作 は すべ て 標準 関数 で 行い ます が 、 ファ イル に 対す る 考え 方 が X-BASIC の 特長 の 1 つ 
と な っ て いる た め 、 こ の 章 で 詳し く 説 明 し ます 。 
その 他 に 、 や は り X-BASIC の 特長 と いえ る 次 の 機能 に つい て も 人 解説 し ます 。 
・ マ ウス 、 ジ ョ イス ティ ッ ク 制 御 
・ 文 字 列 操作 
・ 子 プロ セス 
2.1 画面 制御 
本 機 で 扱う 画面 に は 、 大 きく 分 け て 次 の 3 つが あり ます 。 
・ テ キス ト 
s グ アマ ィ ッ ク 
*。 肖 プ テイト 


画面 は 、 下 の 図 の よう な 優先 度 で 重なっ て いる と 考え て くだ さい 。 
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グラ フィ ッ ク 画 面 と スプ ライ ト 画 面 に つい て は 、 こ の あと の 節 で 説明 し ます 。 


テキ スト 画面 は 、 文 字 を 表示 する 画面 で す 。 プ ログ ラム の 作成 や 編集 、 リ スト の 表示 を 行っ て いる 
の が 、 テ キス ト 画 面 で す 。 


テキ スト 画面 の 表示 サイ ズ は 、 基本 的 に は 64 桁 X32 行 と 96 桁 32 行 の 2 種類 で す 。 で は 、 ダ イレ ク 
トモ ー ド で 、 テ キス ト 画 面 の 表示 桁 数 を 変 た て み ま し ょ う 。 次 の よう に 入力 し て くだ きい 。 


screen 2,0,1,0 | また は width 96 (この スク リー ン モ ー ド で は スプ ライ ト 画 面 は 使 
ませ ん ) 


画面 が 消去 され 、 表 示さ れる 文字 の 大 き さ も 変わ っ た は ず で す 。 ま た 、 同 時 に グラ フィ ッ ク 画 面 と 
スプ ライ ト 画 面 も 消去 され て いま す 。 つ づい て 次 の よう に 入力 し ます 。 


screen 1.0,1,0 | また は width 64 


これ を 交互 に 繰り 返し て みて くだ さい 。 screen 命令 は 、 テ キス ト 画 面 を は じ め 次 節 で 説明 する グラ 
フィ ッ ク 画 面 や スプ ライ ト 画 面 の すべ て の スク リー ン モ ー ド を 決め る と き に 使い ます 。width 命令 
は 、 テ キス ト 画 面 の 表示 桁 数 を 変え る と き に 使い ます 。 


で は 次 に 、 表 示 行 数 を 変え た て み ま す 。 表 示 行 数 と いう の は 、 テ キス ト 画 面 が スク ロー ル す る 行 数 の 
と (で ぐす の 。 次 の よう 民 入 力 し で くだ さい めい 。 


console 0.10,1 | 
ここ で ファ イル 一 覧 を 表示 し て み ま し ょ う 。 次 の よう に 入力 し ます 。 
files (また は |[F 1 | キー を 押し ます ) 


画面 の 上 10 行 だ け を 使っ て 文字 が スク ロー ル し ます 。 で は 、 元 に 戻し ます 。 


console 0,31,1 


console 命令 は 、 テ キス ト 画 面 の スク ロー ル 行 数 (表示 行 数 ) を 変え 0 る と き に 使い ます 。 ま た 、 画 面 


最 下行 の ファ ンク ショ ン キ ー 表 示 の 有無 も $、console 命令 で 行い ます 。 詳 し く は 第 4 意 を 参照 し て くだ 
さい 。 


el ドク の f 2W 


グラ フィ ッ ク 画 面 は 、 点 や 線 、 絵 を 描く 画面 で す 。 表 示 は すべ て ドッ ト 単 位 で 行わ れ 、 ド ッ ト の 位 
置 は XX 座標 と Y 座 標 で 表し ます 。 


本 機 の グラ フィ ッ ク 画 面 に は 、 次 の 図 の よう に 、 論 理 画面 、 実 画面 、 表 示 画 面 が あり ます 。 


論理 画面 


レン ン 
ko の 
ピン 
SSSSSSSScooooooo 
ジン ジジ 
ンク 
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・ 論 理 画面 
論理 画面 は 、X-BASIC の グラ フィ ッ ク 関 数 で 、X、Y 座標 と し て 引数 に 指定 で きる 画面 男 囲 ( 座 
標 系 ) で す 。 指 定 で きる 範囲 は 次 の と お り で す 。 


双 座 標 ……ー32,768 か ら 32,767 ま で 
Y 座 標 …… 一 32,768 か ら 32,767 ま で 


・ 実 画面 

実 画面 は 、 実際 に グラ フィ ッ ク を 書き 込む こと の で きる 範囲 で す 。 実 画面 サイ ズ に は 、512X512 ド 
ッ ト と 1024X1024 ド ッ ト の 2 つが あり ます 。 ま た 、 実 画面 サイ ズ と 色 モ ー ド (最大 表示 色 ) に よっ 
て 、 設 定 で きる グラ フィ ッ ク ペ ー ジ 数 (最大 4 ページ) が 変わ り ま す 。 


・ 表 示 画 面 
表示 画面 は 、 実 画面 の 中 の 実際 に 表示 され て いる 範囲 で す 。 表 示 画 面 サイ ズ に は 、 次 の も の が あり 
ます 。 

256X256 ド ッ ト 


512X512 ド ッ ト 
768X512 ド ッ ト 


で は 、 表 示 画 面 サ イズ や 実 画面 サイ ズ な ど (スク リー ン モ ー ド ) を 変え て み ま し ょ う 。 次 の よう に 
入力 し て くだ さい 。 た だ し 、 グラ フィ ッ ク RAM を RAM ディ スク な ど で 使 用 し て いる 場合 は 、 その 
デー タ を フロ ッ ピ ー デ ィ ス ク や ハー ド デ ィ スク な ど に セー ブ し て お いて くだ さい 。 以 降 の screen 命 
令 を 実行 する と グラ フィ ッ ク RAM は 初期 化 さ れ ま す 。 


screen 2,0,1,1 


スク リー ン モ ー ド は 次 の よう に 設定 され ます (この モー ド で は スプ ライ ト 画 面 は 使え を ませ ん )。 


表示 画面 サイ ズ ………… の "の imiminini768X512 ド ッ ト 

実 画面 サイ ズ …………i………imim…1024X1024 ド ッ ト 

色 モ ー ド (最大 表示 色 ) ……………16 色 (65536 色 の 中 か ら ド ッ ト 単位 で 指定 
グラ フィ ッ ク ペ ー ジ 数 ………………1 (グラ フィ ッ ク ペ ー ジ 0 ) 


また 、 グ ラフ ィ ッ ク 画 面 の 初期 化 も 同時 に 行い ます 。 で は 、 別 の スク リー ン モ ー ド を 設定 し て み ま 
し ょ う 。 次 の よう に 入力 し ます 。 


screen 1,1,1,1 


スク リー ン モ ー ド は 次 の よう に 設定 され ます 。 


表示 画面 サイ ズ …………… の の ie の it512X512 ド ッ ト 
実 画面 サイ ズ …………… の の の im の ti"512X512 ド ッ ト 

色 モ ー ド (最大 表示 色 ) ……………・16 色 (65536 色 の 中 か ら ド ッ ト 単 位 で 指定 
グラ フィ ッ ク ペ ー ジ 数 ………………4 (グラ フィ ッ ク ペ ー ジ 0 一 3) 
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また 、 次 の よう に 入力 する と 、65536 色 同時 発色 の グラ フィ ッ ク 画 面 が 使え ます 。 
screen 1.,3,1,1 


スク リー ン モ ー ド は 次 の よう に 設定 され ます 。 


表示 画面 サイ ズ …………… ド ドー512X512 ド ッ ト 

実 画面 サイ ズ …t パ | の ( つ …… の の の mm…512X512 ド ッ ト 

色 モ ー ド (最大 表示 色 ) …………65536 色 

グラ フィ ッ ク ペ ー ジ 数 ……………… ド 1 (グラ フィ ッ ク ペ ー ジ 0 ) 


この よう に screen 命令 の パラメータ を 変え ん る だ け で 、 い ろ い ろ な スク リー ン モ ー ド を 設定 で きま 
す 。 グ ラフ ィ ッ ク 関 数 を 使う と き に は 、 必 ず ス クリ ー ン モー ド を 設定 する よう に し て くだ さい 。 
実際 に 実 画面 の 中 で グラ フィ ッ ク を 描く こと の で きる 範囲 、 ク リッ ピン グ エ リ ア と いい ます 。 
screen 命令 を 実行 する と 、 ク リッ ピン グ エ リ ア は 表示 画面 と 同じ 大 きき さき に な り ま す (この と き の 実 画 
面 に お ける 表示 画面 の 左上 座標 は (0.00 に な り ま す )。 ク リッ ピン グ エ リ ア を 実 画面 の 大 き さ に まで 
広げ て お け ば 、 表 示 画 面 サ イズ より も 大 き な 絵 な ど を 描く こと が で きま す 。 で は 、 次 の よう に 入力 し 
て くだ さい ぃ 。 


screen 2.0.1.1 凡 | 
window 0,0,1023,1023 | 


これ で 、 実 画面 いっ ぱい に グラ フィ ッ ク を 描く こと が で きま す 。window 関数 は 、 ク リッ ピン グ エ 
リア を 指定 する 関数 で す 。 


クリ ッ ピ ング エリ ア が 表示 画面 より 大 きい と き は 、 表 示 画 面 を 移動 し て 実 画面 の 別 の 部 分 を 見 る こ 
と が で きま す 。 次 の プロ グラ ム を 実行 し て み ま し ょ う 。 


19 str a 

2 の 9 scoreen の,3,1,1 

39 window(9,9,511,511) 
49 apage(0 の ) 

59 vpage(1) 

69 home(9,128,128) 

79 fi11(149,149,359,359,39 ) 
89 waiting( ) 

99 home(9,9,9) 
199 vaiting( ) 
119 home(9,9,256 ) 
129 waiting( ) 
139 home(9,256,9) 
149 waiting( ) 

159 home(9,256,256) 
169 naiting( ) 

179 home(9,128,128) 
18 の naiting( ) 

199 cidth 96 
299 end 
219 funo waiting( ) 
229 1oocate の, の 
239 print "push SPACE key" 
249 a=inkey$ 
259 endfunc 


榎 数 の グラ フィ ッ ク ペ ー ジ が ある スク リー ン モ ー ド の と き 、 実 際 に グラ フィ ッ ク を 描く ペー ジ ( ア 
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クティ ブ ペ ー ジ ) を 指定 する の が 、40 行 の apage 関数 で す 。 ま た 、 実 際 に 表示 され る ペー ジ を 指定 す 
る の が 、 50 行 の vpage 関数 で す 。 vpage 関数 の 指定 に よっ て は 、 複数 の ペー ジ を 重ね て 表示 きせ る こ 


と も で きま す 。 こ の と き 、 グ ラフ ィ ッ ク ペ ー ジ 0 が 一 番 上 に 表示 され ます 。 こ の 表示 の 優先 順位 は 、 
次 の よう に な っ て いま す 。 


UI 


マコ っ 低 
グラ フィ ッ ク ペ ー ジ 0 グラ フィ ッ ク ペ ー ジ 1 グラ フィ ッ ク ペ ー ジ 2 グラ フィ ッ ク ペ ー ジ 3 


表示 画面 の 移動 に は home 関数 を 使い ます 。 こ の プロ グラ ム で は 、 実 画面 の ほぼ 中 央 に 四角 形 を 描 
き 、home 関数 で 表示 画面 を 次 の 図 の よう に (①ー⑯⑥) 移動 し て いま す 。 


グラ フィ ッ ク は 、 一 般 に 次 の 手順 で 使用 し ます 。 


1 スク リー ン モ ー ド (表示 画面 サイ ズ や 実 画面 サイ ズ 及 び 色 モー ド な ど ) を 設定 する 
(screen) 

クリ ッ ピ ング エリ ア を 設定 する (window) 

アク ティ ブ ペ ー ジ を 決め る (apage) 

グラ フィ ッ ク 画 面 を 表示 する (vpage) 

グラ フィ ッ ク を 描く 

表示 画面 (クリ ッ ピ ング エリ ア ) を 移動 する (home) 


〇 っ の 1 選 CO トウ 


また 、 グラ フィ ッ ク 画 面 の 実 画面 内 の 任意 の 領域 の グラ フィ ッ ク RAM デー タ を 配列 に 読み 込ん だ 
り 、 逆 に 配列 の デー タ を グラ フィ ッ ク RAM に 書き 込ん だ どり する 関数 (get、putl も あり ます 。 


みみ 1 2 素 デ ライド 


ゲー ム プ ログ ラム で は 、 い ろ い ろ な 形 の キャ ラク タ が 画面 の 中 を 動き 回 っ て いま す 。 こ れ と 同様 の 
こと が XX-BASIC で 実現 で きま す 。 

スプ ライ ト 画 面 は 、 スプ ライ ト や バッ ク グ ラウ ンド を 表示 する た め の も の で す 。 ス プラ イト 画面 で 
は 、16X16 ド ッ ト で 作成 し た スプ ライ ト の パタ ー ン を 1 つの キャ ラク タ と し て 自由 に 動か すこ と が で 
きま す 。 

グラ フィ ッ ク 画 面 が 複数 の グラ フィ ッ ク ペ ー ジ を 持っ て いた よう に 、 ス プラ イト 画面 に も 複数 の ペ 
ー ジ が あり ます 。 こ れ を プレ ー ン と いい 、 最 大 128 面 (プレ ー ン 0 一 127) まで 使う こと が で きま す 。 
各 プ レー ン に は 、 1 つ ず つ ス プラ イト の パタ ー ン を 表示 で きま す 。 ま た 、 プ レー ン の 番号 が 小さ い ほ 
ど 、 表 示 優先 順位 が 高く な り ま す 。 つ まり 、 プ レー ン の 番号 が 違う スプ ライ ト の パタ ー ン が 重なっ た 
と き に 、 プ レー ン の 番号 の 小さ い 方 が 優先 的 に 上 に 重なっ た よう に 表示 され ます 。 ま た 、 ス プラ イト 
と バッ ク グ ラウ ンド の 表示 優先 順位 も 変更 で きま す 。 
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スプ ライ ト や あと で 説明 する バッ ク グ ラウ ンド の ノ パ ター ン は 、 そ の パタ ー ン に 対し て パレット プロ 
ッ ク (1 一 15) が 割り あて られ ます 。 ま た 、 そ の パタ ー ン の ドッ ト に 対し て 、 割 りあ て られ た ノ パ レッ 
トブ ロッ ク の 中 か ら 16 色 の パレ ッ ト を 選択 し て 設定 で きま す 。 こ の 16 色 の パレ ッ ト に は 、65536 色 の 中 
か ら 任意 の 色 を 割り あて られ ます 。 

定義 で きる スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン の 最大 数 は 、 あ と に 説明 する バッ ク グ ラウ ン 
ド (テキ スト ペー ジ ) の 使用 状況 に よっ て 変わ り ま す 。 バ ッ ク グ ラウ ンド (テキ スト ペー ジ ) を 2 面 
と も 使っ て いる と き は 、 16X16 ド ッ ト の パタ ー ン は 最大 128 個 まで 定義 で き ま 39⑳5。 まだ な 、 パッ ク グ ラウ 
ンド (テキ スト ペー ジ ) を まっ た く 使 っ て いな けれ ば 、16xX16 ド ッ ト の パタ ー ン は 最大 256 個 まで 定義 
で きま す 。 ス プラ イト や バッ ク グ ラウ ンド の パタ ー ン は 水平 ある い は 垂直 反転 が で きま す 。 

スプ ライ ト は 、 表示 画面 サイ ズ が 256X256 ド ッ ト か 512x512 ド ッ ト の と き に 表示 で きま す 。 ス プラ 
イト を 表示 で きる 範囲 は 、 次 の 図 の と お り で す 。 な お 、 図 の 座標 は 前 者 が sp_set で 、 後者 が sp_move 
の 場合 で す 。 


(0,0) また は (一 !I6, 一 |6) 


ノ / 議 ング 表示 面 


1024 や 、 
ドッ ト (527, 527) ま た は (511, 511) 


〔(271, 271) ま た は (255, 255) 〕 


Sp_set SD_move 
2 2 
I024 ド ッ ト (1023, 1023) ま た は (1007, 1007) 


バッ ク グ ラウ ンド は 、 プ レー ン と は 別に 最大 2 面 ま で 表示 で きま す 。 バ パック グラ ウン ド の 特長 は 、 
テキ スト ペー ジ 1 面 に 最大 4096 個 (64X64 個 ) の パタ ー ン を 定義 し て 、 こ の テキ スト ペー ジ を それ ぞ 
れ の バッ ク グ ラウ ンド に 割り あて 、 そ の バッ ク グ ラウ ンド を 自由 に スク ロー ル し て 表示 で きる 点 で す 。 
バッ ク グ ラウ ンド は 、 表示 画面 サイ ズ が 256X256 ド ッ ト の と き 2 面 、 512X512 ド ッ ト の と き 1 面 ま 
で 表示 で きま す 。 バ ッ ク グ ラウ ンド を 表示 で きる 範囲 は 、 次 の 図 の と お り で す 。 
(0,0) 


1 王 - 


(1023, 1023) ま た は (511, 511) 
バッ ク グ ラウ ンド の テキ スト ペー ジ に 使用 する パタ ー ン サイ ズ や バッ ク グ ラウ ンド の サイ ズ も 、 表 
示 画 面 サ イズ に よっ て 変わ り ま す 。 


表示 画面 サイ ズ パパ ター ン サ イズ バッ ク グ ラウ ンド サイ ズ 
256X256 ド ッ ト 8X8 ド ッ ト 512X512 ド ッ ト 
512X512 ド ッ ト 16X16 ド ッ ト 1024X1024 ド ッ ト 
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スプ ライ ト は 、 一 般 に 次 の 手順 で 使用 し ます 。 
1 スク リー ン モ ー ド (768X512 以 外 の 表示 画面 サイ ズ な ど ) を 設定 する (screen) 
スプ ライ ト 画 面 や パタ ー ン を 初期 化す る (sp init sp clr) 
スプ ライ ト の パタ ー ン を 定義 する (sp_ def) 
パレット プ ブロッ ク や パレ ッ ト を 定義 する (sp _color) 
表示 する プレ ー ン を 決め る (sp _on、sp of) 
スプ ライ ト 画 面 を 表示 する (sp_disp) 
スプ ライ トバ パタ ー ン を 動か す (sp_set ま た は sp_move) 


コ の ) の 1 愉 で OkO 


また 、 ス プラ イト の 状態 を 読み 出す 関数 と し て sp stat 関数 、 ス プラ イト の パタ ー ン の デー タ を 読 
み 出 す 関 数 と し て sp pat 関数 が あり ます 。 

3 、 4 は 、 付 属 の スプ ライ ト エ ディ タ を 使っ て 定義 せ する こと も で きま す 。 

バッ ク グ ラウ ンド は 、 一 般 に 次 の 手順 で 使用 し ます 。 


スク リー ン モ ー ド (768X512 以 外 の 表示 画面 サイ ズ な ど ) を 設定 する (screen) 

スプ ライ ト 画 面 や パタ ー ン を 初期 化す る (sp_init 、sp clr) 

バッ ク グ ラウ ンド の パタ ー ン を 定義 する (sp_ def 

パレ ッ ト プ ロッ ク や パレ ッ ト を 定義 する (sp color) 

テキ スト ペー ジ に パタ ー ン を 設定 する (bg fill、bg put) 

スプ ライ ト 画 面 を 表示 する (sp disp) 

テキ スト ペー ジ を バッ ク グ ラウ ンド に 割り あて 、 そ の バッ ク グ ラウ ンド を 表示 する (bg_ 
set) 

8 バッ ク グ ラウ ンド き を 動か す (bg scroll) 


っ の) の 中 CO トト や ロロ 


また 、 バ パック グラ ウン ド の 状態 を 読み 出す 関数 と し て 、bg stat 関数 、 テ キス トペ ー ジ の 状態 を 読 
み 出 す 関数 と し て bg get 関数 が あり ます 。 バ ッ ク グ ラウ ンド の パタ ー ン の デー タ を 読み 出す 関数 と 
し て sp pat 関数 が あり ます 。 


次 の プロ グラ ム で は 、 ス プラ イト の パタ ー ン を 2 個 、 バック グラ ウン ド の パタ ー ン を 2 個 定義 し て 
いま す 。 バ ッ ク グ ラウ ンド を 2 面 共 ス クロ ー ル させ な が ら 、 画 面 の 中 を 2 個 の スプ ライ ト が 動き ます 。 
画面 の 端 に きま た と ころ で 、 ス プラ イト は 反転 し ます 。 


19 /* sprite sample 

20 Sn も まき)。mdL ky 2 2 xx9. が 3.y4 

3 の char pojpb,vrjvr_s,vr_s1,hr,hr s,hr s1,od 
49 float f,f1 

59 /* define sprite-pattern 

69 dim char SP9(255)={ 


79 の , の , の , 9, の, 9, 9, 9, 9 の, の 9 の, 9, の , の , @, 9, 9, 
89 9, の , 9, 9, 9, の 9, の , 9, の 9, 9, の 9, の , 9@, 9, 9, 0, 
99 の 9, の , の ,11,」11, 9, 9, の, 9, 9, の, の @, の 9, 9 の, 9, 9, 
199 9。 ゆ 。 の ます 1。11 11 。 の 9。 の 。 の, 9。 0。11,。 の 。 0。 9。 9。 
1109 の 。 の 0。 つの j11. 11 11.1 の 0,。 の, 9。 09, 9.11.19。 90, の, 0, 
129 3 3 1011。 2 。 2。 2。 2。 妥 。 る 2。 3。 3。 3。 の り 。 9, 
139 す 3, 4 12。 2。 2。 3。 3。 3。 3。 3。 3。 3。 3。 3。 3。 9 
149 412。 5.11.11.11.10。 3。 3。 3。 3.11.19。 3。 3,。 3。 
159 の 6 っ 1 は も 10 の) 3。 3。 3。 き 。 よ 和 れ 10。 きす 。 3, 3。 
169 1 。 を 12。 2) 2。 3。 3 ぁ 。 3。 3。 3。 3。 3。 3。 3。 3。 0@, 
179 193.13。 4 は 11」11。 2,。 2。 2。 2。 2。 2 3。 3。 3。 9, 9@,。 
189 の, の 9。 の 911 11 11.19。 の 9。 9。 9, の ,11.19.。 90, 9, 0, 
199 の 9, の , の ,11,11,11。 9, 9 0, 9, の ,11, の 9, 9, 9 の, 6, 
290 0。 の 。 の 11。11 。 90。 の 。 0。 0,。 90。 の 0。 の 9。 9 の 。 9。 の 9。 


219 0 の 。 9 の, 0,。 90。 の, 9。 90, 0, 9。 の 。 9』 の .。 の の 0。 9。 0。 
229 の, 9, 9, の 9, の , 9, の, の 9, 9, の , の , 9, の 9, の @, の, の 
239 } 

249 dim char SP1(255)={ 

259 2。 の 。 の 9。 0。 の.14。 の 。 0。 の 。 の 。14。 の ,。 の 9。 の @。 9 の 。 @。 
269 0.12.12.12。 の 。 9.14。 0。 の 14。 の 9 の,。 の 0.12.12.。12。 の 
279 2 な まま S51951912。 0。14。 の 9。 0 の 0514。 の 2513.9..13。12。 
289 13。18。 813。1312。。 の 14.14。 9.12.。03.13。 8。13.。 13。 
299 1 SS3。 8j19. 3。 0。 WV。 7 0. お 9203。 8。19。 8.18 
399 3 な 113 に 13 13098.135813。 89。 5。 93.US 93313。 13. 3 103, 
319 3 9 13538。 8 193。 5。 5138.19 13。 9.03 13。 
329 183.13。13。 9。13.13。13。 5。 5。13.13 13。 9.13。13。13, 
339 3 33。43。 9。 313。 5。 5 US 。 18, 9。136E3 は 3.18, 
349 12.13。13。 9。13。13。13。 5。 5。13.13.13。 9.13。13.12, 
359 人 3 093 3 13。 は 3 13。 3。 3 TS.13 13.13) 83.13, 
360 の 2、 3 3 13.13。13。 4。 13.13.13.13.13.32 0, 
3709 の : 山 2 0133 19 TS T3 03。 2 23、13513 3313.123 0。 
389 の 。 0。 和 12 3, SH3。 の 。 6。 6。 313.183.19.12。 9, の 。 
390 の の 2 12.12。 の 。 の 。 の 。 0、。 9。 の 0.12.12.12。 の 。 0。 
499 の 9, の ,12, 9 の, 9, 9, 9, の , 9, 9, 9, の @, の ,12, の, の 9 
419 } 

429 /* define baockground-pattern 

439 dim char BGO(63)={ 

449 0, 8。 の , 8, 9,。 8, @, 8。, 

459 8。 の 。 の 。 の 9, の 。 ひ 。 の ひ 。 の 。 

4609 の の 。 の 0,。 9 の 、 0。 の 9, 9, 8。 

479 8S, の 90, の 。 の 。 9 の 。 の , の 9。 の 。 

489 の 03 の 9、 0。 の 0 の, 0。 0@。 8。 

490 8, 9, の, の 0, の 9。 の 0, の , 9, 

599 9, 9 9, の 6, 9, の, の , 8 

5109 8 IO 8。 0。 8 の, 8, の 

529 } 

539 dim char BG1(63)={ 

546 9, 9 の, 9, 9, 9, 9 の, 9, 9, 

5509 9,19, 9,19, の,19, の, 09, 

569 9 の, 9 の, 9, 9, の 9, 9,19, 9, 

5709 の 6.19, 90, の 9 の,。 9 の, 9, 9, 9 

589 90, の , 9 の, 9 の, の , 9,10, 9, 

599 9,.19, 9, の,。 9,。 9, の , 9, 

699 9 の, 9,19, の,19, 90,10, 9, 

619 の 9 の 。 0, の 。 の 。 の 9,。 9, @ 

629 )} 

63 の 9 /* main */ 

649 screen 9,3,1,1 /* 表示 画面 サイ ズ 256*256 (768*512 以 外 を 指定 する ) 
659 sp_init( ) /* スプ ライ ト 画 面 の 初期 化 

669 sp_clr(9,255) /* スプ ライ ト パ タ ー ン の クリ ア (9@~ て 255 の パ 
679 sp_disp(1) /* スプ ライ ト 画 面 の 表示 (9 な ら 表 示せ ず 、1 
689 sp_on(9,3) /* スプ ライ ト プ レ ー ン の 表示 (9~ て 127 の プレ 
699 /* set sprite-pattern & background-jpattern 

799 sp_def(9,SP の ,1 ) /* 16*16 dots 

719 sp_def(1,SP1,1) /* 16*16 dots 

729 sp_def(8,BG9,9 ) /* 8* 8 dots 

739 sp_def(9,BG1,9) /* 8* 8 dotsg 

749 sp_def(3,SPO,1 ) /* 16*16 dots 

759 sp_def(4,SP1,1 ) /* 16*16 dots 

769 /* set palet-blook 

770 for ii=2 to 3 

7809 pb= ュ 

799 if i=2 then r=28919 else r=-80900 

8099 fo J= ひ も o 5 

8109 DC=J 

829 randomize(r+Dp1(1*10 の )*)) 

839 Sp_color(pc,hsv(rnd( )*192,rnd( )*32,31 )+1,pb) 
8409 mext 

859 next 

869 /* set background の 

879 bg_fi11( の @,pat dat(9,9,1,8) ) 

889 bg_set(9,9,1) 

899 /* set background 1 


999 bg_fi11(1,pat _dat(9,9,1,9) ) 
919 bg_set(1,1.,1) 
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929 /* set sprite-p1ane 9,1,2,3 & background 9,1 
930 i= の :di=1:hr s1=1:y2=8 
949 while -1 


959 ュ エニ ュ +d ュ 

969 /* background scro]1 

979 if x3=511 then x3=9 

989 if y3=511 then y3=9 

999 x3=x3+1 

19909 Y3=y3+1 

19109 bg_socro11( の ,x3,y3) 

1929 bg_scro11(1,511-x3,511-y3) 

1939 /* move sprite 

1949 if i<1 then hr_s= の :vr_s= の :hr sl1=1:vr s1=1:di=1:y2=y2+8 
1950 if >286 then hr_s=1:vr_ sg=1:hr s1=O:vr s1= の 9:di=-1:y2=y2+8 
1969 f=(pi(2)*i) /288*2 

1970 f1=(pi(2)*i ) /288*4 

1989 y1=128-15 の *sin(f ) 

1990 y4=1258-129*cos(f1 ) 

1199 1f y1< の then vr s=1:y1=9 

1119 if y4<9 then Yr_s1= 9 

1120 if yl1>277 then vr s=9 

1139 if y4>247 then vr s1=1 

1149 if y2>271 then y2=9 

1159 /* プラ イオ リティ (sprite > background9 > background1 ) 
1160 Sp_set( の ,i,y2,pat_ dat も (の,hr s,1,9),3) 

1179 SD_ ge も (1,i,y1,pat dat(vr sr 05 1139,3) 

1189 gp_set(2,288-1,272-y2,pat_dat(9 の ,hr s1,2,3),3) 

1199 SD_set(3,288-i,248-y4,pat dat(vr_s1,9,3,4) , 3 ) 

1299 endwhi1e 

1219 end 


1229 funo pat _dat(vr,hr, pb, cd ) 


1239 /* vr = 垂直 反転 (9 の なら 反 転 し な い 、1 な ら 反 転 す る ) 
1249 /* hr = 水平 反転 は あれ た 
1259 /* pb = パレ ッ ト プ ロッ ク (1~15 の 値 ) 
1269 /* cd = バ パター ンコ ー ド (9@~255 の 値 ) 


1270 return(vr*32768+hr*16384+pb*256+cd ) 
1289 endfunc 


@ ス プラ イト エディ タ の 起動 方 法 
スプ ライ ト エ ディ タ の 起動 方 法 と コマ ンド に つい て 説明 し ます 。 
スプ ライ ト エ ディ タ は 、 グ ラフ ィ ッ ク RAM を 使用 し ます 。 グ ラフ ィ ッ ク RAM を RAM ディ スク と 


し て 使用 し て いる と き は 、RAM ディ スク の デー タ を フロ ッ ピ ー デ ィ ス ク な ど に 退避 し て か ら 起 動 し 
CROSS 


・ 起 動 
現在 メモ リ 上 に ある プロ グラ ム を 消去 し て よい か どう か 確認 し ます 。 よ けれ ば 、X-BASIC の 入力 
待ち 状態 の と き に 、 次 の よう に 入力 し て くだ さい 。 


load "a:\ etc \defsptool" |J| 


スプ ライ ト エ ディ タ の プロ グラ ム が ロー ド さ れ ま す 。 こ の 場合 は 、 ド ライ ブ A の 「ETC」 と いう デ 
ィ レ クト リ に ある 「DEFSPTOOL.BAS」 を ロー ド し まし た 。 続 いて 、 フ ァ ン クシ ョ ン キ ー の 中 
キー を 押す か 、「run」 と 入力 し て リターン キー を 押し て くだ さい 。 

し ば らく する と 画面 に 、 


説明 は 必要 で すか ? [Y ン N] 
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と 表示 され ます 。 は じ め て 使う と き は 、 キー ボー ド か ら Y と 入力 し て くだ さい 。 ここ で N と 入力 する 
と 、 ス プラ イト エディ タ が 起動 し ます 。 ま た 、 説 明 を 読ん で も 、 説 明 の 表示 が 終わ る と 、 ス プラ イト 
エディ タ が 起動 し ます 。 


・ 起 動画 面 の 各部 の 名 称 と 機能 

だ 当 匠 Eh 1 | NN 
| | コニー 6. パタ ー ン [ | ! 
| | ! 簡 作成 エリ ア i |s.! 
| 
' 1. パタ ー ン ・ 一 覧 較 導 | (| | 
| | 1 る ネ | し | に 当 

| 1) し 

| | 1 1 時 拓 | | 

レーーーーーー 一 ll | 7 | 

トマ 1 パレ ッ ト | 

| 11 ブロッ ク 一 覧 | 

メッ ポー ジ モ エリ ア | | 

の 25 | | 

3 一 リア 基 。 
ニー 」 


1。 ィ パ ホー ンー 革 (だ 上 ) 
パタ ー ン 番号 0 一 127 に 定義 され て いる パタ ー ン を 表示 し ます 。 


2. カラ ー 作 成 エ リア ( 諾 下 ) : 
ペン カラ ー の RGBI 各 成 分 が 表示 され て いま す 。RGBI 各 成分 を 変更 し て カラ ー を 作成 し ます 。 


3. 作成 中 の パタ ー ン (中 央 上 ) : 
表示 画面 が 256※ 256 の と き の 大 き さ G ず すら 


4. オペ レー ショ ン メ ニュ ー (中 央 ) : 
マウ ス の 左 ボ タン で ダブ ルク リッ ク す る こと に より 各 機 能 を 実行 し ます 。 


5. カラ ー 作 成 エ リア (カラ ー 表 示 部 分 ) (中 央 下 ) : 

ペン カラ ー あ る い は 作成 中 の 色 が 表示 され ます 。 マ ウス の 左 ボ タン で ダブ ルク リッ ク す る と ペン カ 
ラー に 人 色 を 設定 し ます 。 
6. パタ ー ン 作成 エリ ア (右上 ) : 

マウ ス の 話 ボ タン を クリ ッ ク す る と その ドッ ト を セッ ト し ます 。 マ ウス の 左 ボ タン を クリ ッ ク す る 
と その ドッ ト を リセ ッ ト し ます 。 
7. フ パ レッ トブ ロッ ク 一 覧 ( 右 下 ) ・ 

マウ ス の 左 ボ タン で クリ ッ ク す る と パレ ッ ト プ ロッ ク 及 び ノ パレ ッ ト が 選択 され ます 。 だ 側 の 自 い 印 
は 選択 きれ て いる パレ ッ ト ブ ロッ ク を 示し ます 。 


8. 現在 選択 きれ て いる パパ レット ブロ ッ ク (大敵 上 ) : 
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マウ ス の 左 ボ タン で クリ ッ ク す る と パパ レッ ト が 選択 され ます 。 右 側 の 白い 印 は ペン カラ ー を 示し ます 。 


ほとん どの 操作 は 、 マ ウス の 左 ボ タン を クリ ッ ク す る こと で 実行 し ます 。 ま た 、 ス プラ イト は スプ 
ライ ト エ ディ タ 起 動 時 に は 初期 化し ませ ん 。 そ の た め 、 ス プ " ラ イト の パパ ター ン や ノ パ レッ ト を 定義 し て 
いな い 状 態 で スプ ライ ト エ ディ タ を 起動 する と パタ ー ン 及び ノ マ レ ッ ト ブ ロッ ク 一 覧 に は 意味 の な い パ 
ター ン や パレット が 表示 され ます 。 init 及 び clr 機 能 で 初期 化し て くだ さい 。 


・ メ ニュ ー の 機能 
各 オ ペレ ーション は 、 す べ て マウ ス の 左 ボ タン に よる ダブ ルク リッ ク で 実行 され ます 。 


づつ : 作成 中 の パタ ー ン を 1 ドッ ト 右 へ 移動 し ます 。 

ー  : 作 成 中 の パタ ー ン を 1 ドッ ト 左 へ 移動 し ます 。 

1  : 作 成 中 の パタ ー ン を 1 ドッ ト 上 へ 移動 し ます 。 

!  : 作 成 中 の パタ ー ン を 1 ドット 下 へ 移動 し ます 。 

90  : 作 成 中 の パターン を 反 時 計 回 り に 90 度 回 転 し ます 。 
180  : 作 成 中 の パターン を 180 度 回 転 し ます 。 

1 ! : 作 成 中 の パタ ー ン を 上 下 反 転 し ます 。 
ーー : 作成 中 の パタ ー ン を 左右 反転 し ます 。 

get : フ パタ ー ン を 取り 込み ます 。 

put ノノ パ ター ン を 定義 し ます 。 

fill パタ ー ン を 指定 され た 色 で 塗り つぶ し ます 。 
Save ・ パ ター ン ま た は パパ レッ ト を 保存 (セー ブ ) し ます 。 
palet : パ ター ン 一 覧 上 の パタ ー ン の パパ レッ トブ ロッ ク を 変更 し ます 。 
init : 全 パ レッ ト を 初期 化し ます 。 

elr。 “ 全 パ タニ シン を グリ ア し まず 。 
help : 説 明 を 表示 し ます 。 

end : ス プラ イト エディ タ を 終了 し ます 。 


2。.1、3 パレ ッ ト と カラ ー コ ー ド 


X-BASIC で は 、 表 示さ れる 文字 の 色 と グ ラフ ィ ッ ク 関 数 や スプ ' ラ イト 関数 で ドッ ト 単 位 に 使用 さ 
れる 色 を ノ パ レッ トコ ー ド で 設定 し ます 。 

また 、X-BASIC で は カラ ー コ ー ド と し て 0 一 65535 ま で の 値 を 指定 で きま す 。 

ここ で は 、 こ の パレ ッ ト コ ー ド と カラ ー コ ー ド の 関係 を 説明 し ます 。 

た と えば 、 グ ラフ ィ ッ ク 画 面 の スク リー ン モ ー ド が 、 ド ッ ト 上 単位 に 65536 色 中 最大 16 色 まで 表示 で き 
る よう な 設定 に な っ て いた と し ます 。 こ の 場合 の パレ ッ ト コ ー ド は 0 一 15 ま で の 値 を と る こと が で き 
ます 。 も ちろ ん 、 カ ラー コー ド は 0 一 65535 ま で の 値 を 指定 で きま す 。 つま り 、 その スク リー ン モ ー ド 
で 表示 で きる 最大 の 色 数 に 応じ て 指定 で きる パレ ッ ト コ ー ド の 範囲 が 決ま り 、 そ の 各 ノ パレ ッ ト コ ー ド 
に 対し て 0 一 65535 の 範囲 で カラ ー コ ー ド が 割り ふら れる わけ で す 。 
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それ ぞ れ の 画面 に 応じ て 指定 で きる パパ レッ トコ ー ド は 次 の よう に な り ま す 。 


テキ スト 画面 ……… ン パレ ッ ト は 4 つ (第 4 章 の color、color [ ] 命 令 を 参照 し て くだ さい 。) 
グラ フィ ッ ク 画 面 …… 色 モー ド (ドッ ト 単 位 の 最大 表示 色 ) 
16 色 ……… パパ レッ トコ ー ド は 0 一 15 
256 色 …… パパ レッ トコ ー ド は 0 一 255 
( 色 モ ー ド (ドッ ト 単 位 の 最大 表示 色 ) が 65536 色 の と き は パレット コード と カラ ー コ ー ド は 1 対 1 に 対 
応 し ます 。 第 4 章 の palet 関数 を 参照 し て くだ さい 。) 
スプ ライ ト 画 面 …… ツ パタ ー ン 単位 の パパ レッ トブ ロッ ク は 1 一 15 
ドッ ト 単 位 の パレ ッ ト コ ー ド は 0 一 15 
(スプ ライ ト や バッ ク グ ラウ ンド で 使わ れる パタ ー ン は 、 パ ター ン 上 単位 に 1 15 ま で の パレ ッ ト プ ロッ 
ク が まず 割り あて られ ます 。 さ ら に その パタ ー ン の ドッ ト 単 位 に 0 一 15 ま で の パパ レッ トコ ー ド が 設定 
され ます 。 第 4 章 の sp color 関数 を 参照 し て くだ さい 。) 
つづ いて 任意 の 色 の カラ ー コ ー ド を 求め て み ま す 。 
X-BASIC に は 、 カ ラー コー ド を 求め る 関数 と し て rgb 関数 、hsv 関数 が あり ます 。 
ご 承知 の よう に 光 の 三原 色 に は 、 青 の 成分 と 赤 の 成分 と 緑 の 成分 が あり 、 こ れ ら の 成分 の 組み 合わ 


せ で 、 い ろ い ろ な 人 色 が 表現 で きま す 。 
g( 緑 ) 


2 
SC ン 


ここ で は 少し 暗い マゼンタ の カラ ー コ ユー ド を 求め て み ま す 。 
上 了 図 を みて 、rgb 関数 を 使用 する と 、 


print rgb(25,0,25) 


r( 赤 ) b( 青 ) 


それ で は 、 次 の プロ グラ ム を 入力 し て 実行 し て みて くだ さい 。 


19 /* rgb 
2 の int ai 
39 char ac,bo,co 
49 soreen 1,3,1,1 


59 apage(9) 

69 vpage(1) 

7 の input “" 赤 の 成分 を 入力 し て くだ さい (9~ ぐ 31)--->":jac 
89 input " 緑 の 成分 を 入力 し て くだ さい (9@~31)--->":bo 
39 input " 青 の 成 分 を 入力 し て くだ さい (9~ 31)--->"ioco 


199 ai=rgb( aco, bc, oo )+1 
119 fi]11(9,9,199,199,ai ) 
129 end 


次 に 少し 暗い 白 み が か っ た シア ン の カラ ー コ ー ド を 求め て み ま す 。 上 図 を みて 、rgb 関数 で 求め る の 
は むず か し いよ う です 。 
次 の 罰 を みて 、hsy 関 数 を 使用 する と 、 
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print hsv(96,27,26) 


0 3 
I s( 飽和 度 ) 1 


0 (色相 ) 
19 リ 


それ で は 、 次 の プロ グラ ム を 入力 し て 実行 し て みて くだ さい 。 
19 /* hsv 
29 int ai 
39 char ao,bo,occ 
49 soreen 1,3,1,1 
59 apage(9) 
69 vpage(1) 
79 input "色相 を 入力 し て くだ さい (9@~191)--->":ac 
8 input "飽和 度 を 入力 し て くだ さい (9@ て 31)--->":bc 
9 input "明る さ を 入 力 し て くだ さい (9@< て 31)--->":co 


199 ai=hsy(ao, bc, co ) +1 
119 fi11(9,9,109,199,ai ) 
129 end 


この よう に 、 光 の 三原 色 で あら わ さ れ る 7 色 か ら 求 め る こと が で きる よう な 比較 的 単純 な 色 の カラ 
ー コ ー ド は 、rgb 関数 を 使っ て 求め る こと が で きま す 。 

も っ と 複雑 な 色 の カラ ー コ ー ド を 求め る 場合 は hsv 関数 を 使う) こと が で きま す 。 

な お 、 い ずれ の 場合 も 算出 で きる カラ ー コ ー ド は 0 一 65535 の 偶数 値 と な り ま す 。0 一 65535 の 奇数 
値 の カラ ー コ ー ド を 表現 する 場合 は 、rgb 関数 や hsv 関数 で 返っ て きた 結果 に 1 を 加え て くだ さい 。 
rgb 関数 、hsy 関数 の 詳細 に つい て は 第 4 章 を 参照 し て くだ さい 。 


2.2 FM 音源 制御 


本 機 は YM2151 と いう FM 音源 LSI を 内 蔵 し て いま す 。 これ は 、 一 般 に OPM と 呼ば れ て いる タ 
イプ で 、 市 販 の シン セ サ イ ザ に も 搭載 きれ て いる た い へ ん 高 機能 な も の で す 。OPM は 8 オク ター ブ の 
FM 音 涼 を 8 チャ ン ネ ル 内 蔵 し 、 各 チャ ン ネ ル ご と に 音色 を 設定 し た り 、 左 / 右 ある い は その 両方 に 
出力 を 振り 分 ける こと が で きま す 。 つ まり 、 こ れ ひ と つ で 8 オク ター ブ 8 重 和 音 の ステ レオ 演奏 が 可 
能 と な る わけ で す 。 

本 機 の 内 蔵 ス ピー カ は モノ ラル で す が 、 本 体 後面 に は オー ディ オ 出 力 端子 が 装備 され て いま す の で 、 
これ を オー ディ オア ンプ や ラジ カセ な ど に 接続 する こと に より 、 ハ イフ ァ イ ス テレ オ サ ウ ンド を 楽し 
むこ と が で きま す 。 

FM 音源 は 発振 器 (これ を オペ レー タ と いい ます ) で 周波 数 変調 (Frequency Modulation) を か 
ける こと に よっ て 音色 を 作り 出し ます 。OPM は チャ ン ネ ル ご と に 4 つの オペ レー タ を 持っ て いま す 
の で 、 そ の 組み 合わ せ 方 (アル ゴリ ズム ) や 各 オ ペレ ー タ の 状態 を 操作 する こと で 、 無 数 と も いえ る 
音色 を 出す こと が で きま す 。 

X-BASIC で は 、8 オ クタ ー プ 8 重 和 音 の ステ レオ FM 音源 を 利用 し た 演奏 を 行う こと が で きま 
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す 。 演奏 に は 、 実際 の 楽譜 に 対応 し た MML と いう 言語 を 使い ます 。 X-BASIC で は FM 音源 で 音楽 
演奏 を する 場合 この MML で 記述 され た 音色 や 音符 な どの 楽譜 デー タ を すべ て トラ ッ ク バ ッ フ ァ に 
書き こみ ます 。 ト ラッ ク バ ッ フ ァ は FM 音源 の 各 チ ャ ン ネ ル に 固定 され て いる の で は な く 、 必要 に 応 
じ て 領 域 を 確保 し 、 自 由 に 各 チ ャ ン ネ ル に 割り あて る こと が で きま す 。 ま た 、 演 奏 時 に は チャ ン ネ ル 
を 指定 する こと が で きま す 。 こ れ に よっ て 、 よ り 効 率 的 な 楽譜 デー タ の 記述 や 多彩 な 音楽 演奏 が 可能 
なり ま すず 。 
M 音源 は 、 一 般 に 次 の 手順 で 使用 し ます 。 
FM 音源 を 初期 化す る (m init) 
MML デー タ (文字 列 ) を 格納 する トラ ッ ク バ ッ フ ァ を 確保 する (m alloc) 
トラ ッ ク バ ッ フ ァ を FM 音源 の 各 チ ャ ン ネ ル に 割り あて る (m _assign) 
演奏 の テン ボ を 設定 する (m tempo) 
トラ ッ ク バ ッ フ ァ に MML デー タ を 格納 する (m trk) 
演奏 する (m play) 
3、 総 トラ ッ ク バ ッ フ ァ サ イズ (それ ぞ れ の トラ ッ ク に 割り あて られ て いる トラ ッ ク バ ッ フ ァ の 
有 A を 変更 する 場合 は 、 CONFIG.SYS フ ァイル 内 の OPMDRV.X の 行 を 次 の 様 に 書き か えて か 
ら 、 再 度 シ ステ ム 起 動 し て くだ さい 。 
DEVICE ーー \SYS\OPMDRV.X #100 
総 ト ラ ッ ク バ 、 ッ フ ァ の サイ ズ (単位 : 
この 例 で は 、 シ ステ ム 再 起動 後 、 約 100KB の 総 ト ラ ッ ク バ ッ フ ァ が 確保 きれ ま す 。 何 も 指 定 し な 

場合 は 、 約 64KB の 総 PMMA 
リア は この トラ ッ ク バ ッ フ ァ サ イズ に 関係 し て きま す の で 注意 し て くだ さい 。 

指定 され た 音色 番号 に 音色 デー タ を 設定 し た り 、 逆 に 音色 デー タ を 読み 出す 関数 (m vset、 
m vget) も あり ます 。 そ の 他 に 、 演 奏 の 状態 を 読み 出す m_stat 関数 も あり ます 。 

それ で は 、MML に つい て 説明 する 前 に 、 楽 譜 と MML を 対応 きせ て み ま し ょ う 。 

楽譜 


0 25 つ EC 0m。 所 


P.nRGRN2 CENBRLO 


MML 
準備 1 小節 目 2 小節 目 3 小節 目 4 小節 目 
o4v9q7I16 |: viOT100@16>b2b2 く >a2g2@6 く < T140v12>12a42 く  c2.r:| 
o4v9q7I6 |:  v10@16e2d2 <e2>>b2@6 く  v2c2c2 くく e2.r4> >: | 
o4v9q7I16 |:  v10@16g2g2 く <c2>e2@6> vw21212 くく 8g2.R4 > >: | 
o4v9q7I16 |:  v10@16R2R2 R2 く b2@6> v122a2 R2.R4: | 


この 楽譜 で は 、 3 重 和 音 の 部 分 と 4 重 和 音 の 部 分 が あ り ます 。 X-BASIC で MML を 使っ て 演奏 す 
る と き は 、MML の デー タ を 文字 (str) 型 変数 に 代入 し て 、 ミ ュー ジッ ク 関 数 に 渡し ます 。 
MML の 文法 に つい て 説明 し ます 。 
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(1) 書式 


楽譜 デー タ は MML デー タ (コマ ンド 、 パ パラメータ ) を 文字 列 と し て 続け て 記述 し ます 。 音 楽 演奏 


の さい は 、 記 述 し た 順番 に 実行 され る こと に な り ま す 。 各 デー タ は 、 詰 め て 書い て も スペ ー ス が 入っ 
て いて も か まい ませ ん し 、 小 文字 で 書い て も 大 丈夫 で す 。 
MML デー タ の 一 覧 を 示し ます 。 以 下 、 こ の 表 を も と に 説明 を し て いき ます 。 


MML デ ー タ 意 味 パラ メー タ 範 囲 初期 値 
An-Gn 音符 

AG : 音程 (後ろ っ に # ま た は を 付け る 

と シャ ー プ 、 一 を 付け る と フラ ッ ト ) 

n : 音 長 (n 分 音符 ) 1-64、 省 略 可 
Rn 休 待 (n : 音 長 ) | 1ー64、 省 略 可 
符 点 ( 音 長 を 1.5 倍 に する ) 
& タイ (前 後 の 音 を つなげ る ) 
{音程 デー タ ) n | 連 符 (n : 合計 の 音 長 ) 1 一 64 
On オク ター プ (n : 高き ) 0-8 (4) 
SS 邊 ググ ダー アン を りつ 上 る 
> | オク ター プ を 1 つ 下 げ る 
Tn 」 テン ボ (1 分 間 に 4 分 音符 を n 拍 ) 中 32 一 200 (120) 
Ln 音 長 (n 分 音符 ) 1 一 64 (4) 
@Ln 音 長 の 細か い 設 定 (n/192 分 音符 ) 1 一 192 (48) 
Qn 音 中 で 実際 に 音 を 出す 割合 (n/8 ) 1=-.8 8⑧) 
Vn 音量 (n : 大 き さ ) | 0-15 ⑧) 
@Vn 音量 の 細か い 設 定 0 一 127 
Pn ステ ルオ 出 旋 (1 : 充 、 2 3 大 3 : 元 名 1-3 (3) 
@n 音色 (n : 音色 番号 ) 1-200 ①) 
Yr.d OPM に 直接 デー タ を 書き 込む 

『 ・ レ ジ ズ ネタ 番号 

di 一 グ 
e@Wn OPM の 状態 維持 (n : 音 長 ) 1-64、 省 略 可 
| in | 繰り 返し の 始め (n : 繰り 返し 回 数 ) 1-256、 省 略 値 2 
:| 繰り 返し の 終わ り 
In 繰り 返し の n 回 目 で 演奏 する デー タ の 始め | 1 一 256 
(DCJ 先頭 に 戻る (1 回 の み ) 
[D.S.) 〔SEGNO]} に 戻る ( 1 回 の み ) 
(SEGNO〕、〔$〕 | 〔D.S.J か ら の 飛び 先 
〔TOCODA〕、〔 *〕 | (CODA〕 に 飛ぶ ( 1 回 の み ) 
[CODA]〕 [TOCODA〕 か ら の 飛び 先 
(FINE〕 、(^〕 | (DC.)、(D.S.)、〔*〕 実 行 後 の 演奏 終了 
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(2) 音符 

楽譜 デー タ と し て も っ と も 基本 に な る の は 音符 の 記述 で す 。 実 際 の 楽譜 を 見 る と わか る よう に 、 ひ 
と つの 音符 は 音程 と 音 長 か ら な っ て いま す 。MML の 場合 も 同様 に 、AG で 音程 を 、1 一 64 の 数 字 
で 音 長 を 表し 、2 つ 合 わせ て ひと つの 音符 に な り ま す 。 AG の 代わ り に R を 使っ て 休 符 を 表す こと 
も で きま す 。 ま た 、 音 符 の 要素 と し て は タイ で 連 符 も あり 、 こ れ ら も 簡単 に 記述 で きる よう に な っ て 
いま す 。 

@ 苦 程 

音程 デー タ AG の 意味 を 下図 に 示し ます 。 た だ し 、 こ こ に 示し た 音 の 高 さ は 実際 に は 音色 に よっ 
て オク ター プ が 異な る こと が あり ます 。 


EE 


ID EE G AA 上 旨 G D 世 選 仁 信 BC DE EIGA B 22 
| | | | | 
オク ター ブ 3 オク ター デブ 4 オク ター プ ブ 5 


ここ で 、 AG の 後ろ に # ま た は を 付け る と 半音 上 、 一 を 付け る と 半音 下 を 表し ます 。 た と えば 、"C 
#"、"C+" "Dー" は すべ て 同じ 音 、 音 楽 記号 の C# (DP) に な り ま す 。 
@ 昔 長 

音 長 デー タ は 音程 デー タ ( 休 符 を 含む ) の 後ろ に 数 字 を 付け て 表し 、 こ の 数 字 を n と する と その 音 
符 は n 分 音符 で す 。 た と えば 、 こ れ を 音楽 記号 で 表す と 次 の よう に な り ま す 。 


音 長 デ ー タ は 省略 可能 で 、 そ の 場合 は 後述 の L コマ ンド で 設定 され た 音 長 に な り ます 。 また 、 ピ リ 
オド ( . ) を 符 点 の 意味 で 使用 する こと が で き 、 こ れ を 付け る と 音 長 が 1.5 倍 に な り ま す 。 2 つ 付 ける 
と 1.75 倍 で す 。 た と えば 、“C4.′ は 符 点 4 分 音符 、L 8 に 設定 され て いる と き の "C.” は 符 点 8 分 音 
符 と な り ま す 。 

@ タイ と 連 笛 

2 つの 音符 デー タ の 間 に 層 を 入れ る こと に より 、2 つ の 音 を つない で 鳴ら す (タイ ) こと が で きま 
写 。 

連 符 は 音程 デー タ を { ) で くく り 、 そ の 後ろ に 音 長 デ ー タ を 付け る こと に より 記述 し ます 。 こ の 場 
合 、{ } 内 の 音 を 合計 する と 指定 し た 音 長 に な る よう に 演奏 され ます 。 つ まり 、 1 つの ひと つの 音 
は 、 指 定 し た 音 長 を 音程 デー タ の 個数 で 等 分 し た 長 さ で 鳴ら きれ る わけ で す 。 だ た と えば 、 こ れ を 使っ 
て 3 連 符 を 記述 し た 場合 の 音楽 記号 と の 関係 は 次 の よう に な り ま す 。 


ビ 3 ユ ー3 コ 


ICCCI UI IGGCOI 8iaeeses 棚 」 
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(3) 状態 設定 

この MML は 音符 を 記述 する だ け で な く 、 オ クタ ー ブ や テン ボ 、 音 長 、 音量 な ど を 細か く コ ント ロ 
ー ル する こと が 可能 で す 。 さら に 、 OPM の 特長 を 生か し て 、 音色 の 選択 や ステ レオ 出力 の 切り 換え も 
行う こと が で きま す 。 
の オジ クア タープ 

オク ター プ ブ は 0O コマ ンド で 値 を 直接 指定 する 方 法 と "<"、"> " で オク ター ブ を 上 げた り 下 げた り 
する 方 法 が あり ます 。 前 者 は 音楽 の 各 パ ー ト の 先頭 部 分 、 あ る い は パー ト の 途中 で 音色 を 変え た た と き 
な ど 、 後 者 は 演奏 中 に 一 時 的 に オク ター ブ が 変わ る と き に 使用 する と よい で し ょ う 。 た と えば 、 光 の 
楽譜 は "GAB く CDC>BAG" の よう に 記述 で きま す 。 


宮司 三 性 

オク ター プ の 値 と 音程 の 関係 は 音符 の 項 で 述べ た と お り で す 。 オク ター ブ 0 で は C、C# ま D 0 は 
使え を ず 、 オ クタ ー ブ 8 で は C、 C# D 以 外 の 音 は 使え を ませ ん 。 オク ター ブフ の 値 は 初期 状態 で は 4 に 
っ て いま す 。 

@ テ ン ボ 
MS エコ マン ド で 行い ます 。 つま り 、 曲 中 で 演奏 の テン ポ を 変え ん る こと も で きる わけ で 
。 設定 値 は m tempo 関数 と 同様 、 1 分 間 に 4 分 音符 を 何 拍 打つ か で 表し ます 。 
由 
音 長 は 音符 デー タ の ほう で 1 音 1 音 に つい て 記述 する こと が で きま す が 、 こ れ を 省略 し た 場合 の 音 
待 の 音 長 を 設定 する の が L コマ ンド 、@L コマ ンド で す 。 楽譜 の な か で も っ と も 多く 出 て くる 音 長 を 
設定 し て お く こ と に よっ て 、 効 率 的 に 楽譜 デー タ を 記述 する こと が で きま す 。 

L コ マン ド の 設定 値 は 音符 の 音 長 デ ー タ と まっ た く 同 じ 意 味 で す 。 こ れ に 対し て 、@L コマ ンド は 
全音 符 (4 分 音符 4 つ 分 の 長き ) を 192 と し て 音 の 長 さ を 指定 する の で 、 音 長 を より 細か く コ ント ロー 
ル す る こと が で きま す 。 た と えば 、L 8 と @L24 は 同じ 意味 で 、 @L25 は L 8 より も 少し だ け 長 い 音 に 
な り ま す 。 @L コマ ンド に よる 微妙 な 音 長 設定 を 曲 全体 に 対し て 行う と 、 リ ズム の 管理 が 大 変 に な る 
の で 、 曲 の な か で 部 分 的 に 特殊 な 効果 を 出し た い 場合 、 あるいは 効果 音 な ど に 使用 する と よい で し ょ 
の 
@ 昔 を 出す 時 間 

一 般 に 、 同 じ 4 分 音符 で も 、 そ の な か で 実際 に 音 を 出し て いる 時 間 は まち まち で す 。 音楽 記号 に テ 
ヌー ト と か スタ ッ カ ー ト と いう の が あり ます が 、 こ れ も そ うい っ だ 音 の 出し 方 を 指示 する 記号 で 、 音 
待 に 志 さ れ た 長き いっ ぱい まで 音 を 出し た り 、 逆 に 音 を 切っ た りす る こと を 示し ます 。 

この よう に 、1 つ ひ と つの 音符 の 音 長 の うち 実際 に 音 を 出す 時 間 の 割合 を 設定 する の が Q コマ ンド 
で す 。Q コマ ンド で は その 割合 を 1/8 一 8/8 で 指定 し 、 値 が 小さ く な る ほど スタ ッ カ ー ト ぎみ 
に 、 大 きく な る ほど テ ヌ ー ト ぎみ に な り ま す 。 た だ し 、 音 色 に よっ て は それ ほど 効果 は あり ませ ん 。 
な お 、 初 期 状態 で は Q 8 に な っ て いま す 。 

@ 音量 


音量 は V コマ ンド 、 あ る い は @V コマ ンド で 設定 し ます 。 V コマ ンド の 設定 値 は 0 一 15、@V コマ 


中 
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ンド の 設定 値 は 0 一 127 で 、 い ずれ も 値 が 大 きい ほど 音量 も 大 きく な り ま す 。 V コマ ンド と @V コマ ン 
ド の 設定 値 に は L コマ ンド と @L コマ ンド の よう な 相関 関係 は な く 、V コマ ンド は 聴感 上 V 0 から 
V15 ま で 正 比例 的 に 音量 が 変化 する の に 対し て 、@V コマ ンド は 設定 値 が 大 きく な る は ほど 変化 量 が 大 
きく な っ て いき ます 。 初期 状態 で は V 8 に 設定 され て いま す 。 
@ ステ レオ 出力 

OPM が ステ レオ 出力 を サポ ー ト し て いる の は 前 述 の と お り で す 。 本 機 の 内 蔵 ス ピー カ は モノ ラル 
で 、 左 右 両方 の 音 を 一 緒 に 出し て いま す が 、 後面 の オー ディ オ 出 力 端子 か ら オ ー デ ィ オ アン プ な ど に 
接続 する こと に より ステ レオ サウ ンド を 楽し むこ と が で きま す 。 MML て 左右 に 音 を 振り 分 ける に は 
P コマ ンド を 使い ます 。P1 と すれ ば 左 か ら 、P2 と すれ ば 右 か ら 、P3 と すれ は 左右 両方 か ら 音 が 出 ま 
す 。 初 期 状 態 で は P3 に な っ て いま す 、P コマ ンド は 、 音 色 と 音 符 デ ー タ の 間 に 入 れ て 指定 し ます 。 
@ 音色 

音色 の 選択 は @ コ マン ド で 音色 番号 を 指定 する こと で 行い ます 。 初期 状 態 で は 1 番 か ら 68 番 まで の 
音色 が あら か じ め 登 録 き され て お り (これ を プリ セッ ト 音 と いい ます )、 さ ら に ユー ザー が 作成 し た 音色 
デー タ を 登録 する こと に よっ て 合計 200 番 まで の 音色 を 使う こと が で きま す 。 また 、 登録 済み の 音色 デ 
ー タ を 読み 出し 、 デ ー タ を 書き 換え て 再 登録 する こと で 、 音 色 を 修正 する こと も 可能 で す 。 詳 細 に つ 
いて は 、m vget 関数 、m vset 関数 を 参照 し て くだ さい 。 

以下 に 、 プ リセ モット 音 の 一 覧 を 掲載 し ます 。 こ の な か で 打楽器 は それ らし い 音 に な る 音程 が 限ら れ 
て いま す 。 括弧 内 に 基本 と な る オク ター プ ブ を 示し て お きま す の で 参考 に し て くだ さい 。 


内 g だ め 24 ボイス 47 バス ドラ ム [0] 
2 本 L. ピ アノ 25 コー ラス 48 タム タム [2] 
3 エレ クト WW のみ クビ アノ 26 グラ スハ ー プ 49 ティ ン パ ニ [2,3] 
4 クラ ビ ネ ッ ト 27 ホイ ッ ス ル 50 ポン ゴ [2,3] 
5 セレ スタ 28 ピッ コロ 51 ティ ン フ パレ ス [3] 
6 チェ ン バ パロ 29 フル ー ト 52 トラ イア ング ル [3,4] 
7 アコ ー ス ティ ッ ク ギ ター |30 オー ボ エ 53 カウ ベル [3.4] 
8 エレ クト リッ クギ ター 31 クラ リネ ッ ト 54 チュ ー ブ プラ ー ベ ル 

9 ウッ ド ベ ー ス 32 バス ー ン 55 スチ ー ル ドラ ム 

10 エレ クト リッ クベ ー ス 33 サッ クス 56 グセ ロッ ケシ 

1 ペ パ ジ ジョ ー 34 トラ ン ペ ッ ト 5 ビデ ジア キジ 

シク 江 35 ホル ン 58 マリ ン バ 

13 ハー プ 36 トロ ン ボ ポー ン 59 クロ ー ズ ハイ ハッ ト [3] 
14 要 37 チュ ー バ 60 オー プン ハイ ハッ ト [4] 
5 2 パイプ オ ルカ > 1 38 プラ ス 1 61 シン バル [4] 
16 パイ プ オ ル ガ ン 2 39 プラ ス 2 62 シン セ サ イ ザ 1 

17 エレ クト リッ クオ ル ガ ン |40 ハー モニ カ 63 シン セ サ イ ザ 2 

18 アコ ー デ オン 41 オカ リナ 64 アン ビュ ー ラ ンス (効果 音 ) 
19 バイ オリ ン 42 リコ ー ダ ー 65 嵐 (効果 音 ) 

20 チェ ロ 43 サン バ ホ イッ スル [3.4] |66 レー ザー ガン (効果 音 ) 
21 スト リン ダス II 44 パパ ン フ ルー ト 67 ゲー ム 1 (効果 音 ) 

22 スト リン ジグ ス 2 45 スネ アド ラム [2] |68 ゲー ム (効果 音 ) 

2 選 た め み テ ド 46 リム ショ ッ ト [3] 
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@ OPM 制御 

これ まで に 説明 し た コマ ンド だ け で も 非常 に きめ 細か な 音楽 制御 が 可能 で す が 、 さ ら に OPM に 直 

接 デー タ を 書き 込ん で コン トロ ー ル する こと も で きま す 。 こ れ を 行う の が Y コマ ンド で す 。 書式 は 
"Yrd" で 、r に OPM の レジ スタ 番号 、d に 書き 込む デー タ を 指定 し ます 。 た だ し 、 レ ジス タ 番 号 
1 、16、17、18、20 は 使え ませ ん 。 

Y コマ ンド で 設定 し た OPM の 状態 を 一 定時 間 そ の まま 維持 する の が @W コマ ンド で す 。 設定 値 
は 音符 デー タ の 音 長 と 同じ 意味 で 、 省略 も 可能 で す 。 こ の コマ ンド は Y コマ ンド で OPM に KEY 
ON/OFF を 指定 し た あと で の み 有 効 で す 。 

下 表 に レジ スタ 番号 と デー タ の 対応 を 示し ます 。 各 デー タ は ビッ ト ご と の 意味 を も っ て いま す 。 内 
容 に つい て は 、 資 料 編 の 「FM 音源 の 音色 デー タ (レジ スタ )」 を 参照 し て くだ さい 。 


レジ スタ 番 り デー タ (ビッ ト ア ー タ ) 
(10 進 表 ) | ヵ 革 夢 骨 涯 玉屋 ぅ | 0 
本 LFO 
01 TEST (テス ト 用 ) ek 
了 KEY ON/OFF 
スロ ッ ト マ スク チャ ン ネ ル 番 号 注 1 
OF NE NOISE FREQUENCY 
10 CLK Ai 
1 の 導 CLK A。 
12 CLK B 
5 F RESET | IRQEN LOAD 
中 CSM 
B | A B | A B A 
」 
18 スピ ー ド (LFRQ) 
まこ 
19 AM PMD or AMD 
2 | CT es 
由 間 DTIIDYT Co.2422p20 
1 
20-i 汗 2 | LRPAN フィ ー ド バッ ク テル ゴリ ズム 


KEY CODE 
OCT NOTE 


30 一 注 2 KEY FRACTION 


38 一 注 2 PMS 
40 一 注 3 DTI MUL 
60 一 注 3 T 


80- 注 3 KS AR 
ia | AMS 
A0- 注 3 | SN DIR 
C0- 汗 3 DT2 D2R 注 1 5 チャ スネ ル 著 号 王 0 一 7 
注 る 2 ・ レ ジス タ 番 号 王 表 中 の レジ スタ 番号 十 チ ャ ン ネ ル 番 号 
EO- 江 3 piL RR 注 3 : レ ジス タ 番 号 三 表 中 の レジ スタ 番号 十 (オペ レー タ 番 


号 一 | ) X 4 十 チ ャ ン ネ ル 番 号 
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) 繰り 返し 

この MML で は 繰り 返し が サポ ー ト され 、 楽 譜 デ ー タ を 効率 的 に 記述 する こと が で きま す 。 ま た 、 
これ を 活用 する こと に よっ て トラ ッ ク バ ッ フ ァ に 書き 込ま れる デー タ を 大 幅 に 節約 する こと が で きま 
す の で 、 長 い 曲 を 演奏 する と き に も 有利 で す 。 繰り 返し を 示す コマ ンド は 一 般 の 音楽 記号 と よく 似 た 
も の に な っ て いま すか ら 、 音 楽 記 号 と 対応 させ て 説明 し て いき ます 。 

@ 単純 / レ ー プ 

音楽 記号 に 次 の よう な も の が あり ます 。 


これ は 及 と :| 上 の 間 を 繰り 返す も の で す 。 MML で も 同様 に 繰り 返し た い 内 容 を | : と : | で < 
くる こと に よっ て 繰り 返し を する こと が で きま す 。 こ こ で | : の 人生 ら に 1 っ 256 の 数 を 付か きこ と 
で 繰り 返し 回 数 を 指定 する こと が 可能 で す 。 省 略し た 場合 は 2 回 に な り ま す 。 | : 一 : | ルー プ を 含 
ed は で きま せん 。 


、 音 楽 記 号 に は | 1. と か | 2. の よう な も の も あり ます 。 こ れ は 繰り 返し の 何 回 目 か に 演奏 
是 0 定 し ます 。 これ も MML で サポ ー ト され て お り 、| n で n 回 目 に 演奏 する 内 容 を 指定 す 
る 選 と が で きま す 。 な と えば 、 


鞭 旋 


の よう な 楽譜 は "| : CDEF | 1GFED : | |2GAB<C" と 記述 し ます 。 

@ 治め に 戻る 

音楽 記号 で D.C. と いう の は 「 始 め に 戻る 」 と いう 意味 で す 。MML で も 同様 に [D.C.] と 中 括弧 で く 
くっ て 記述 する こと で 曲 の 始め に 戻る こと が で きま す 。 

@ Segno に 戻る 

音楽 記号 の 色 は セー ニョ (Segno) と 読み ます 。 そし て 、 D.S. と いう の は ダル セー ニョ と 読み 「Segno 
に 戻る 」 と いう 意味 で す 。 そ れ ぞ れ [SEGNO]、[D.S.] と 記述 すれ ば MML で も 同じ こと を し ます 。 
[SEGNO] は [$ ] と 略記 する こと が 可能 で す 。 

@ Coda に 飛ぶ 

音楽 記号 に と いう の が あり ます 。 こ れ は コー ダ (Coda) と 読み 、D.C. や D.S. を 実行 し た あと to 
D (to Coda) に 来 た と き に そこ へ (Coda) 飛ぶ た め の も の で す 。MML で は それ ぞ れ [CODA]、 
[TOCODA] と 記述 し ます 。 後 者 は [*] と 略記 する こと が 可能 で す 。 
@ Fine 

D.C. や D.S. で 繰り 返し を し た あと で 曲 が 終了 する 場合 に 、 そ れ を 示す の が Fine で す 。 同 様 に 、MML 
で は 、[FINE] あ る い は [ 「] を 実行 する と 演奏 が 終わ り ま す 。 
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で は 、 先ほど の MML の デー タ を X-BASIC で 演奏 する プロ グラ ム を 示し ます 。 各 関数 に つい て の 
詳細 は 、 第 4 章 を 参照 し て くだ さい 。 


19 /* play 

2 の str a[255] /* トラ ッ ク バ ッ フ ァ 

39 m init( ) /* 初期 化 

4 の 9 m_ alloo(1,2999) : m_a1loc(2,2999) : m a11oc(3,2999) : m_ alloc(4,20990) 


59 m_assign(1,1) : m_ asS1gn(2,2) ・ m _aSS1gn(3,3) : m_aSSign(4,4) 
69 /* part 1 


7 の a="o4v9q7116|: v19T199@16>b2b2< >a2g2@6< T140v12>f2a2< c2.r4:1" 
89 write trk(1 ) 
99 /* part 2 


199 a="o4v9q7116|: v19@16e2d2 <e2>>b2@6< v12c2c2 <<e2.r4>>:1" 
119 write trk(2) 
129 /* part 3 


139 a="o4v9q7116|: v19@16g2g2 <<c2>e2@6> v12f2Ff2 くく <g2.R4>>:1" 
149 write trk( 3 ) 


159 /* part 4 

169 a="o4v9q7116|: v19@16R2R2 R2<b2@6> v12a2a2 R2.R4:1" 
179 write trk(4 ) 

189 /* pl1ay !! 

199 m play( ) 

299 end 

21 の /*# write trk 

229 func write trk(i ) 

230 m trk(i,a) 

249 endfunc 


2.3 音声 サン プリ ング (ADPCM) 


本 機 で は 、ADPCM と いう 方 式 で 音声 を サン プリ ング し て 、 録 音 ・ 再 生 す る こと が で きま す 。X- 
BASIC に は 、 そ の た め の 関 数 が 用 意 さ れん て いま す 。 

サン プリ ング し て 録音 し た 音声 は メモ リ に 格納 され ます 。 こ れ を ファ イル に 書き 出す こと で 、 音 声 
デー タ を フロ ッ ピ ー デ ィ ス ク や ハー ド デ ィ スク な ど に 記録 し て 、 あ と で 再生 する こと が で きま す 。 

録音 は 、 本 機 の オー ディ オ 入 力 端 子 (AUDIO IN) に ラジ カセ な ど を 接続 し て 行い ます 。 ま た 、 再 
生 は 、 内 蔵 ス ピー カ か ら 行 うか 、 オ ー デ ィ オ 出力 端子 (AUDIO OUT) に 接続 し た オー ディ オ 機 器 か 
ら 行 いま す 。 

録音 ・ 再 生 で きる 音声 の 長き は 、 サ ンプ リン グ 周 波数 に よっ て 変わ り ま す 。 サ ンプ リン グ 周 波数 が 
高けれ ば 、 録音 する と き に 一 度 に 消費 する メモ リ が 大 きく な り ま す 。 詳 細 は 、 第 4 章 を 参照 し て くだ 
さい 。 

ADPCM に よる 録音 と 再生 は 、 一 般 に 次 の 手順 で 使用 し ます 。 


1 PCM デ ー タ (音声 ) を 格納 する 配列 変数 を 宣言 する 
2 録音 する (a reo) 

3 再生 する (a play) 

(4 PCM デ ー タ を ファ イル に 保存 する ) 

(5 PCM デ ー タ を ファ イル か ら 読 み 込む ) 


編 TeC 


ディ スク 
ーー 
0 


8 
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2.3 


本 機 と オー ディ オ 機 器 を 接続 し て 、 次 の ブロ グラ ム を 実行 し て くだ さい 。 


/* a _ reo sample 

int ai 

char ao 

str as 

dim char aca(65535 ) 
screen 2.9,1.09 

/* reocord 

reDeat 


音声 サン プリ ング (ADPCM) 


399 print “録音 する た め の サ ンプ リン グ 周 波数 " 

199 Eint " (9=3.9KHz,1=5.2KHz,2=7 .8KHz,3=19.4KHz,4=15.6KHz)" 

119 input "録音 する た め の サ ンプ リン グ 周 波数 を 入力 し て くだ さい (9---4)--->": 
aC 

129 unti1l ao<5 

139 /* 

149 print "この 例 で は サン プリ ング 周波 数 に よっ て 次 の うな 録音 時 間 に な り ま す " 

15 の 9 switoh ao 

169 case の :print " サン プリ ング 周波 数 ( 3.9KHz)---> 約 33 秒 間 ":break 

170 caSse 1:print " サン プリ ング 周波 数 ( 5.2KHz)---> 約 25 秒 間 "':break 

189 case 2:print " サン プリ ング 周波 数 ( ?7.8KHz)---> 約 16 秒 間 ":break 

199 case 3:print " サン プリ ング 周波 数 (10.4KHz)---> 約 12 秒 間 ":break 

299 case 41:print " サン プリ ング 周波 数 (15.6RHz)---> 約 8 秒間 " 

219 endsvitoh 

229 chile as<> "yy" 

239 print "録音 し ます の で 'y'*- を 押し て くだ さい " 

24 の as=inkey$ 

259 endehile 

269 print "録音 中 で す " 

279 a rec(aoa,ao,65536 ) 

289 as="" 

299 print "<test.da も t> と いう ファ イル に 録音 デー タ を セー プ し ます " 
0 print "(すでに ある ぐ test.dat> と いう ファ イル は 消去 され ます の で 注意 し て < く 
きき W)“ デ 

319 print "セー ププ し て も よい 場合 は 'y'*- を 押し て くだ さい " 

329 as=inkey$ 

339 if as="y" then { 

340 ai=fopen("a:\test。dat","o" ) 

350 furite(aca,65536,ai ) 

369 foclose(ai ) 

379 } 

380 /* play 

399 repeat 

499 print "再生 する た め の サ ンプ リン グ 周 波数 " 

410 print " (0=3.9KHz,1=5.2KHz,2=7 .8KHz,3=19.4KHz,4=15.6KHz)" 

420 input "再生 する た め の サ ンプ リン グ 周 波数 を 入力 し て くだ さい (9---4)--->": 
8C 

439 unti1 ac<5 

44 の / キ * 

459 print "ここ で は 、65536 を さき ほど の 録音 時 間 と みな し て 、 再 生 さ せ た い 時 間 に 相 
当 す る 値 (バイ ト 数 ) を 入力 し じじ ます 

469 repeat 

479 input "再生 する た め の バ イト 数 を 入力 し て くだ さい (9---65536)---> "jai 

489 unti] ai>-1 or ai<65537 

499 switoh ao 

590 case @:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->"j" 3.9KHz 
"5a1i:break 

519 case 1:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->":j" 5.2KHz 
"ia1i:break 

5209 case 2:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->"j" 7.8KHz 


"ia1i:break 
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549 


の 
ぅ は ユ 


550 
569 
579 
5809 
599 
699 
619 
629 
6309 


case 3:print "再生 する た め の サ ンプ ブリ ング 周波 数 と バイ ト 数 --->":"19.4KHz 


ja1i:break 


case 4:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->"j"15.6KHz 


endswitoh 

に に 

while as<>"Y" 
print も t "再生 しま すず ので パパ y' 只 を 押し て くだ さい 
as=inkey$ 

endwhile 

pFint "ステ レオ 出力 で 再生 も ます "“ 

a_ playY(aca,ac,3,ai ) 

end 
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2.4 ファ イル 操作 


X-BASIC で は 、 ど の よう な ファ イル も すべ て 、 単 な る デー タ の 連続 と し て 扱い ます 。 フ ァイル を 
ラン ダム に 操作 する と き は 、 ポ イン タ と いう 「 目 印 」 を 使っ て デー タ を 読み 書き し ます 。 

デー タ の 読み 書き は 、 1 バイト 単 位 で 行う 場合 と 、 デ ー タ の 型 (char、int、float) 単位 で 行う 場 
合 が あり ます 。 ま た 、 文 字 列 単位 で も 読み 書き を 行え ます 。 こ の 場合 は その デー タ の 型 に 応じ て ポイ 
ンタ が 移動 し て いき ます 。 

この 他 に ファ イル を ラン ダム アク セス し て 、 デ ー タ の 型 に か か わり な く フ ァイル 内 の 任意 の 位置 に 
ポイ ンタ を 移動 する こと も で きま す 。 

な お 、 フ ァイル 操作 で 使用 する ドラ イブ 名 や ファ イル 名 の 詳細 に つい て は 別冊 の 「Human68k ユー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 

ファ イル 操作 の 基本 的 な 流れ は 、 次 の よう に な り ま す 。 


1 ファ イル を オー プン する (また は 新規 に 作成 する ) (fopen) 
(2 ファ イル を ラン ダム アク セス し て ボイン タ を 移動 する (fseek)) 
3 ファ イル か ら デ ー タ を 読み 出す (fread、fgetc、freasds) 、 ま た は ファ イル へ ヘ へ デー タ を 書 
き 込 む (fwrite、fputc、fwrites) 
4 ファ イル を クロ ー ズ する (fclose、fcloseall) 


ある ファ イル を 操作 する た め に は 、 ま ず そ の ファ イル を オー プン し な けれ ば な り ま せん 。 フ ァイル 
に は オー プン モー ド と 呼ば れる モー ド が あり 、 そ れ ぞ れ 次 の よう な 意味 が あり ます 。 


クリ エイ トモ ー ド ("ce7) ……… ファ イル を 新規 に 作成 し ます 
すでに 同じ 名 前 の ファ イル が 存在 する と き は デー タ が すべ て 失 


われ ます 
4 ド だ ーー21 ド AMG2OCaecacoo-otooc すでに 存在 する ファ イル を 読み 出し 専用 た し て オー プン し ます 
2 本 2OM が usnoawowx すでに 存在 する ファ イル を 書き 込み 専用 と し て オー プン し ます 


リー ドラ イト モー ド ("rw”) … す で に 存在 する ファ イル を 読み 書き 両用 と し て オー プン し ます 


ファ イル を オー プン する と 、 フ ァイル ご と に 番号 が つけ られ ます 。 以 後 の 読 み 書 き は 、 こ の ファ イ 
ル 番 号 を 使っ て 行い ます 。 
オー プン し た ファ イル は 、 処 理 が 終っ た ら 必 ず ク ロー ズ し な けれ ば な り ま せん 。 フ ァイル を クロ ー 
ズ し な いと 、 デ ー タ が が 凍 れ て し まう こと が あり ます 。 
プロ グラ ム で ファ イル を 操作 する と き に は 、 ま ず 、 フ ァイル 番号 を し まっ て お く 変 数 (int 型 ) を 宣 
言 し ます 。 も し 複数 の ファ イル を オー プン する の で あれ ば 、 こ の 変数 も 複数 用 意 し ます 。 ま た 、 フ ァ 
イル を 読み 書き する と き な ど に 、 関 数 が いろ いろ な 情報 を 戻り 値 と し て 返し ます (た だ し 、 戻 り 値 を 
無視 し て も か まわ な いこ と も あり ます )。 そ の た め の 変 数 (int 型 ) も 宣言 し ます 。 
19 int fp /* ファ イル 番号 
29 int fc /* 戻り 値 
ファ イル 名 が あら か じ め 決 っ て いる と き は 、 そ れ も 変 数 (str 型 ) に し て お いた ほう が よい で し ょ 


5 
39 str fname="sample.dat" 
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準備 が で きた ら 、 フ ァイル を 作成 し て 、1 文字 書き 出し 、 フ ァイル を クロ ー ズ し て み ま す 。 


fp=fopen(fname,"c") /* クリ エイ トモ ー ド で オー プン 
fo=fputo('a' ,fp) /* 1 文字 書き 出す 
fo=folose(fp) /* ファ イル を クロ ー ズ 

end 


文字 は キャ ラク タコ ー ド で ファ イル に 書き 込ま れ ま す 。 
で は 、 い ま 作 成 し た ファ イル の 内 容 を 画面 に 表示 し て み ま し ょ う 。 


int fp /* ファ イル 番号 
int fc /* 戻り 値 
int dt /* 読み 出し た デー タ 


str fname="sample.dat" 


fp=fopen(fname,"r") /* リー ドモ ー ド で オー プン 
dt=fgetc(Ffp) /* 1 文字 読み 込む 

print chr$(dt) /* 文字 の 表示 

fo=fclose( fp) /* ファ イル を クロ ー ズ 
end 


この ファ イル に 文字 を 追加 し て 書き 出し た あと 、 3 番目 の 文字 を 読み 出し て 表示 し ます 。 


int fp /* ファ イル 番号 
int fc /* 戻り 値 

char dt /* デー タ 

GHm ichaim dd で gi(05)= ニ も 7 も と GT 7 Ye” 7E*Y) 
int i,dp 

str fname="sample.dat" 
fp=fopen(Fname, "で ") / ネ 


ライ トモ ー ド で オー プン 

dp=fseek(fp,9,2) /* ファ イル の 最後 へ ボイン タ を 移動 
for i= の to 4 

dt=dts(1 ) 

fo=fputc(dt,fp) /* デー タ を 書き 出す 
mext 
fc=folose( fp) /* ファ イル を クロ ー ズ 
fp=fopen(fname,"r") /* リー ドモ ー ド で オー プン 
dp=fseek(fp,2,9) /* ファ イル の 先頭 か ら ポ イン タ を 2 つ 進 め る 
dt=fgetc(fp) /* 1 文字 読み 込む 
print cha$(dt) /* 文字 の 表示 
fc=fc]ose(fp) /* ファ イル を クロ ー ズ 
end 
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次 の プロ グラ ム は 、 テ キス ト フ ァイル を 作成 する エディ タ で す 。 た だ し 、 編集 の 機能 な ど は あり ま 
せん 。 ま た 、 常 に クリ エイ トモ ー ド で ファ イル を オー プン する の で 、 注 意 し て くだ さい 。 


19 /* Tiny EDITOR ted,bas 
29 str fname[ 29] 

39 str buff[209] 

49 int fp, fo 

50 char CR=13, LEF=10 

6 の /* main 

7 の fninput( ) 

89 fp=fopen(fname,"c") 

99 edit( ) 
109 fc=fclose( fp) 

119 end 
126 /* fninput 
139 func fninput( ) 
1409 print "Tnput fi1e name >": 
159 1input frame 
169 endfunc 


179 /* edit 

189 funo edit( ) 

190 print "Tnput data(END = /)" : print 
299 while buff <> "/" 

219 Jinput ">":buEF 

229 BWR < の “"/" hen、【 
230 fcrites(buff,fp) 
240 fputc(CR,fp ) 

259 fputc(LF,fp) 

2609 ) 

2709 endwhile 

289 endfunc 


RS-232C (AUX) や プリ ンタ (PRN) な どの デバ イス も 、 フ ァイル 操作 と 同様 に 扱う こと が で き 
ます 。 次 の プロ グラ ム は 、RS-232C ポ ー ト か ら デ ー タ を 読み 込み 、 そ れ を プリ ンタ に 出力 する プログ 
ラム で す 。 


19 /* RS-232C か ら デ ー タ を 読み 、 プ リン タ に 出力 rsto]p.bas 
29 str fn1="AUX" 
39 str fn2="PRN" 
49 int fp1,fp2,o1 
59 /* main 

6 の init( ) 

79 type() 

8 の 9 folose(fp1 ) 

99 folose(Ffp2 ) 
199 end 

119 /* ini セ も 

129 funo init( ) 
139 str dummy 


149 print" 準 備 が で きた ら 何 か キー を 押し て くだ さい " 
159 dummy=inkey$ 

160 fp1=fopen(fn1,"r") 

170 fp2=fopen(fn2,"" ) 


189 endfuno 
199 /* tpDe 
299 funo type( ) 


216 while o1 <> &H1A 
220 c1=fgeto(fp1 ) 
2309 fputo(c1,fp2 ) 
240 endwhile 


259 endfuno 
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2.5 その 他 の 機能 


いま まで 説明 し て きた も の の 他 に も 、X-BASIC に は 多く の 関数 が 用 意 さ れ て いま す 。 
また 、 子 (チャ イル ド ) プロ セス に よる Human68k の コマ ンド の 実行 も サポ ー ト し て いま す 。 


2.5.1 マウ ス 、 ジ ョ イス ティ ッ ク 制 御 


マウ ス や ジョ イス ティ ッ ク も 、 X-BASIC で 制御 する こと が で きま す 。 詳細 は 、 第 4 章 を 参照 し て く 
だ さい 。 


・ マ ウス 制御 

X-BASIC で は 、 マウ ス の 初期 化 、 マ ウス カー ソル の 移動 範囲 の 設定 、 ボ タン の 状態 の 確認 な ど を 行 
えま す 。 次 の プロ グラ ム で は 、 マ ウス を 初期 化し た あと 、 マ ウス カー ソル の 移動 範囲 を 設定 し て いま 
9 


1 の /* mouse sample 

29 screen 2,9,1,1 

3 の 9 vpage(1) 

49 mouse(9) 

59 msarea( の 9,9,699,40909) 

69 box(9,9,699,499,15,&HFFEFF ) 
79 mouse(1) 

89 1ooate 1,5 


99 print "(の ,9)<--->(699,499) の 範囲 で マウ ス を 動か し て くだ さい !“" 
199 end 


・ ジ ョ イス ティ ッ ク 制 御 
X-BASIC で は 、 ジ ョ イス ティ ッ ク の ステ ィ ッ ク と トリ ガー の 状態 を 調べ る こと が で きま す 。 次 の 
プロ グラ ム は 、 ジ ョ イス ティ ッ ク の ステ ィ ッ ク が どの 方 向 に 動か され た か を 表示 し ます 。 


19 /* joy_stick samp1le 
29 int ai,bi 


39 c1s 

4 の while bi く >1 

59 ai=stick(1 ) 

69 locate 19,11 

7 の Switch ai 

89 case li:print "left back ( 左 後 ) = "ja1:break 

99 case 2:print "back ( 後 ) ="ja1i:break 

199 case 3:print "right back ( 右 後 ) ="ja1:break 

119 case 4:print "1eft( 左 ) =":ai:break 

129 case 6:print "right ( 右 ) ="jai:break 

1369 case 7:print "1eft forward (左前 ) ="jai:break 

149 case 8:print "foreardd ( 前 ) ="jai:break 

159 case 9:print "right forward (右前 ) ="jai:break 

169 default:locate 19,10:print "ジョ イス ティ ッ ク を 動か し て くだ さい " 
179 1ocate 19,11:print 『" 3 
1809 endswitoh 

199 endwhile 

209 end 
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2.5.2 文字 列 操作 


X-BASIC で は 、 フ ァイル 操作 な ど で 扱 う 文 字 列 に 対し て 、 い ろ い ろ な 文字 列 操作 を 行う 関数 を 数 
多く 用 意 し て いま す 。 


@ 指 定 さ れ た 文字 の 種類 を 調べ る 関数 …… (Gsalnum、isalpha な ど ) 

@ 文字 列 か ら 指 定 さ れ た 文字 や 文字 列 を 検索 する 関数 …… (Gnstr、strchr、strcspn な ど ) 
@ 指 定 さ れ た 文字 や や 文字 列 を 変換 する 関数 …… (mirror$ 、strlwr、strnset、toascii な ど ) 
@ 文 字 列 か ら 指定 され た 文字 を 区 切り 文字 と し た 文字 列 に 分 解す る 関数 …… (strtok) 

@ 指 定 され た 文字 で で きた 文字 列 を 作成 する 関数 …… (space$ 、string$、strset な ど ) 

@ 文 字 列 と 数 値 を 変換 する 関数 …… (asc、atof、bin$、chr$、ecvt な ど ) 


次 の プロ グラ ム は 、 フ ァイル の デー タ の 1 文字 修正 を 行う も の で す 。 


/* ファ イル の 1 文字 修正 サン プル で す 

int ai,bi ,po 

str 和香 R062aV2 

screen 2,9,1,1 

cls 

1input "ファ イル 名 を 入力 し て くだ さい --->?2"jas 


ai=fopen(as, "oc") 


while -1 
print ")X68) を 入力 する と 一 旦 フ ァイル を クロ ー ズ し ます " 
1input 文字 や 文字 列 を 入力 し て くだ さい --->?"jbs 
/* ohr$(13) = cr,ohr$(19) = 1f,chr$(26) = ctr1+g 
if bs="X68" then bs=bs+ohr$(26 ) : break 


bs=bs+ohr$(13)+ohr$( 10 ) 
fourites(bs,ai ) 
endwhile 
fnrites(bs,ai ) 
foclose(ai ) 
/* update 
cls 
1input "修正 は あり ます か ?<y/n>---> "jche1 
さま che1=Pn「 then end 
1input “修正 後 の デ ー タ を 格納 する ファ イル 名 を 入力 し て くだ さい --->?":bs 


ai=fopen(as, "rw") 


240 bi=fopen( bs , "co" ) 

259 repeat 

2609 cs 

2709 freads(os,ai ) 

280 print os 

290 1ength=str]en(os ) 

3090 1input "この 中 に 修正 する 文字 は あり ます か ?<y/n>---> "jche1 

310 31 ebe cyYy " も he '( 

320 cs=os+ohr$(13)+ohr$( 10) 

339 furites(cs,bi ) 

3409 continue} 

359 while -1 

360 1input "修正 し た い 1 文 字 を 入力 し て くだ さい --->?" jsyu1 

379 po=strohr(os, asc( syu1 ) ) 

389 if po=-1 then print "該当 文字 が あり ませ ん !!":continue 

390 1input “修正 後 の 1 文字 を 入力 し て くだ さい --->?"jsyu2 /* 削除 の 場合 
は この 行 を 取る 

4099 ds=os 

419 Cs=1eft$(cs,po)+syu2+right$(cs,1ength-po-1) /* 削除 の 場合 は この 行 
の "+syu2" を 取る 

420 print "次 の よう に 修正 し ます " 

439 Print Cs 

440 1input "よろ し いで すか ?<y/n>---> "iche2 

459 if che2<>“n" も hen { 8 

460 Cs=ocs+ohr$(13)+ohr$(109) 
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2.5 その 他 の 機能 


479 furites(ocs,bi ) 
480 break} 

499 cs=dS 

599 print os 

5109 endwhile 

529 until feof(ai ) =-1 

539 cls 


549 print "修正 前 の ファ イル の 内 容 と 修正 後 の フ ァイル の 内 容 を 表示 し ます " 
559 fseek(ai,9,9) 
569 fseek(bi , の,9) 


579 print "修正 前 の ファ イル の 内 容 を 表示 し ます !" 


589 repeat 
599 freads(os,ai ) 
699 お Y ユ nm も og 


619 unti1] feof(ai)=-1 
629 print "修正 後 の フ ァイル の 内 容 を 表示 し ます !" 


639 repeat 
649 freads(ds,bi ) 
659 print ds 


669 unti1 feof(bi ) =-1 
679 fcl1osea11() 
689 end 


2.5.3 子 プ ロ セ ス 


X-BASIC に は 、 Human68k の コマ ンド を 実行 する コマ ンド が あり ます 。 その た め 、 フロ ッ ピ ー デ 
ィ ス ク の フォ ー マ ッ ト や コピ ー、 ス クリ ー ン エディ タ ED を 使っ た テキ スト ファ イル の 編集 な ど を 、 
X-BASIC を 終了 する こと な く 実 行 で きま す 。 

入力 待ち の 状態 で "! "に 続け て Human68k の コマ ンド を 入力 し て リタ ー ン キー を 押し ます 。 ド ラ 
イブ B の フロ ッ ピ ー デ ィ ス ク を フォ ー マ ッ ト す る の で あれ ば 、 次 の よう に 入力 し ます 。 


Iformat b: 
Human68k で の コマ ンド の 実行 が 終了 する と 、 
BASIC へ 戻り ます 、 何 か キー を 押し て くだ さい 


と いう メッ セー ジ が 表示 され ます 。 キ ー を 押す と 、X-BASIC に 戻り ます 。 
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弟 3 草 X-BASIC の 文法 


この 章 は 、 ま だ 説明 し て いな い XX-BASIC の 文法 に つい て まとめ て あり ます 。 


3.1 X-BASIC で 使用 で きる 文字 と 特殊 記号 


え -BASIC で 使用 で きる 文字 は 、 英 文字 (大 文字 、 小 文字 )、 数 字 、 カ タカ ナ 、 ひ ら が な 、 特 殊 記 
号 、 漢 字 、 そ し て 制御 文字 か ら 構 成 さ れ て いま す 。 文字 に つい て の 詳細 は 、 資 料 編 の 「 キ ャ ラク タコ 
ー ド 表 」 を 参照 し て くだ さい 。 


半角 文字 と 全角 文字 

通常 X-BASIC で は 、 カ ー ソ ル 1 つ 分 の サイ ズ を も つ 半 角 文 字 を 扱い ます 。 キー ボー ド か ら コ マン 
ド を 与え を た り 、 プ ログ ラム を 記述 する に は 半角 の 英 数 字 を 使い 、 カ タカ ナ や ひら が な (全角 )、 漢字 ( 全 
角 ) は 文字 列 デ ー タ と し て 使う も の と 考え て くだ さい 。 


特殊 記号 

使用 で きる 文字 の 中 で も 、 特 殊 記 号 と 呼ば れる 文字 は それ ぞ れ 特別 な 意味 を 持っ て いま す 。 特 殊 記 
号 の 使い 方 に つい て は 、 第 4 章 「 リ ファ レン ス 」 で 必要 な た び ご と に 説明 し ます が 、 こ こ で は それ ぞ 
れ の 意味 を まとめ て 説明 し ます 。 な お 、 特 殊 記号 の う ち 、 演 算 子 に つい て は 、 3 . 4 「 式 と 演算 」、 書 
式 指定 文字 に つい て は 第 4 章 の print 命令 で 説明 し ます 。 


( 空 白 ) プロ グラ ム 中 の 命令 語 と 命令 語 、 変 数 名 な どの 区 切り と し て 使い 、 ま 
た プロ グラ ム を 見 や すく する ため に 入れ る こと が で きま す 。 た だ だ し 、 
予約 語 (資料 編 「 子 約 語 表 」 参照) の 中 に は 空白 を 入れ る こと は で きま 
せん 。 ま た 、 文 字 定 数 (3 . 3「 定 数 」 参照 ) の 中 の 空白 は 文字 と し て の 
意味 を 持っ て いま す 。 文中 の 空白 は プロ グラ ム の 実行 に は 影響 を 与 
ませ ん が 、 コ ンピュータ の メモ リ に は 空白 も 記憶 され ます 。 


! (感嘆 符 ) チャ イル ド プ ロ セ スコ マン ド 。 第 4 章 child 命令 参照 。 
例 ) !dir 
"| 用 符 ) 文字 列 を 囲み ます 。 


例 ) print "ABC" 


#( 番 号 記号 ) float 型 属性 文字 。 
例 ) print 3# ン 4# 


(アポ スト ロフ ィ ) 文字 デー タ を 囲ん で char 型 の 数 値 デ ー タ と し ます 。 
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(カン マ ) 


( コ 宮 輝 ) 


? (疑問 符 ) 


[ 


( 


」 角 括弧 


) 大 括弧 


3.1 X-BASIC で 使用 で きる 文字 と 特殊 記号 


例 ) char a='A' 


演算 の 優先 順位 を 変え た り 、 関 数 の 引数 リス ト を くく っ だ た りす る の に 
つか いま す 。 
例 ) print (1 二 1)*3 

a 三 pow( 2 , 3 ) 


デー タ を 複数 個 指定 する と き に 、 そ の 区 切り と し て 使い ます 。 print 命 
令 で 使わ れ た 場合 に は 、 8 桁 ご と に 区 切っ て 表示 され ます 。 
例 ) print いと 415A04 od 


数 値 の 範囲 を 指定 する と き に 使い ます 。 
例 ) 1ist 命令 で 表示 する 行 の 範囲 を 指定 する と き 、 
list 100 一 200 
と すれ ば 、100 行 か ら 200 行 まで が 表示 され ます 。 


注釈 文 の 先頭 に 置き ます 。 第 4 章 rem 命令 参照 。 
例 ) ネコ ヨ ノ ギョ ウ や コメ ジ ト デス 


マル チ ス テー トメ ント の 区 切り と し て 使い ます 。 
例 ) a=2 十 3:print a 


デー タ を 複数 個 指 定 す る と き に 、 そ の 区 切り と し て 使い ます 。 print 命 
令 で 使わ れ た 場合 に は 、 デ ー タ は 前 の デー タ に 続い て 表示 され ます 。 
人 )。 prnmt 2a5 5" 6 

また func 一 endfunc で 定義 され る 関数 名 に 続く 引数 リス ト 内 の 変数 
名 に 特別 に 型 を 指定 する の に 使い ます 。 

例 ) func foo(Gifloat ,jiint) 


print 命令 の 代わ り に 使い ます 。 
例 ) ? 25*12 


str 型 変数 の 文字 バッ ファ サイ ズ を 指定 し ます 。 第 4 章 str 命令 参照 。 
例 ) dim str a(10) [20] 


複数 行 に わた っ て デー タ や 直文 を 記述 する の に 使い ます 。 


例 ) 10 dim str c(1)=(a", 
20 員 り 絡 
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3.2 X-BASIC の 変数 や 定数 な ど で 扱 う デ ー タ 


X-BASIC の 変数 や 定数 な ど で 扱う デー タ は 、 次 の よう に 分 類する こと が で きま す 。 


半角 文字 
(yr 一 | 
全角 文字 (ひら が な 、 漢 字 ) 
デー タ | バイ ト 整 数 (char 型 ) 
人 生 ーー 4 バイ ト 整 数 (int 型 ) 


実数 型 (float 型 ) 


文字 列 (str 型 ) 

255 文 字 以 内 の 文字 を つない だ デー タ で す 。 文字 列 に は 、 X-BASIC で 使用 で きる 文字 を なら ば どれ で 
も 使う こと が で きま す 。 た だ し 、 文 字 列 を 算術 演算 (3 . 4 「 式 と 演算 」 参 照 ) に 使う こと は で きま せ 
ん 。 


数 値 
数 値 は 算術 演算 を 行う) こ と が で きる デー タ で す 。 数 値 に は 整数 型 と 実数 型 と が あり 、 数 値 の 取る 値 
は それ ぞ れ で 異な り ま す 。 


整数 (int 型 ) 

4 バイ ト (32 ビ ッ ト ) で 表現 され る 符号 付き 整数 で 、 一 23 か ら 2 一 1 (一 2,147,483.648 か ら 
2,147,483.647) まで の 値 を 使用 で きま す 。 整 数 型 の 数 値 を 使う 演算 は 、 実 行 時 間 が 短く て すみ ます 。 
X-BASIC は 整数 型 を 基本 に し て いる の で 、 特 に デー タ 型 を 指定 し な いと き は 整数 (int) 型 に な り ま 
す 。 


整数 (char 型 ) 
1 バイト (8 ビッ ト ) で 表現 され る 符号 無し の 整数 で 、0 か ら 255 の 値 を 使用 で きま す 。 キャ ラク タコ 
ー ド な ど 、 1 バイト 単位 の デー タ 制 御 に 最も 有効 で す 。 


実数 (float 型 ) 

実数 は すべ て 倍 精度 実数 で 、 8 バイト (64 ビ ッ ト ) で 表現 され ます 。 

1 ビッ ト の 待 号 部 (uF、 負 ) と 11 ビ ッ ト の 指数 部 及び 52 ビ ッ ト の 仮数 部 か ら 構 成 さ れ て いま す 。 この 
結果 表現 で きる 絶対 値 は 、1 .1125369292536Eー308 か ら 3.5953862697246E+308 と な り ま す 。 

また 、 数 値 型 デー タ は 必要 に 応じ し て 、 そ の 型 を 他 の 型 に 変換 する こと が で きま す 。 た だ し 、 文 字 型 
と 数 値 型 の 間 で この 変換 を 行う に は val、str$ 、asc お よび chr$ の 人 各 関 数 を 使い ます (第 4 意 参 
周 )。 

型 の 変換 は 、 次 の 規則 に し た が っ て 行わ れ ま す 。 
@ 数 値 を 異な る デー タ 型 の 数 値 変数 に 代入 する 場合 、 数 値 は 代入 先 の 数 値 変数 の デー タ 型 に 変換 され 

ます 。 
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3.3 定数 


@ データ 型 の 異な る 数 値 を 使っ た 演算 で は 、 デ ー タ 型 の 低い 方 が 高い 方 の デー タ 型 に 変換 され て 演算 
が 行わ れ ま す 。 

@ 論 理 演算 の 場合 、 扱 われ る 数 値 は すべ て 整数 型 に 変換 きれ 、 結 果 は 整数 (int 型 ) で 得 ら れ ます 。 

@ 実数 が 整数 に 変換 され る 場合 は 、 小 数 点 以 下 は 切り 捨て られ ます 。 こ の と き 、 切 り 捨 て た 結果 が 整 
数 型 で 扱え る 範囲 を 越え を て いれ ば エラ ー と な り ま す 。 


3.3 定数 


定数 と は 、 そ れ ぞ れ に 固有 の 値 を 持っ た デー タ の こと で す 。 定数 の 書き 方 は 、3. 2 で 述べ た デー 
タ 型 に よっ て 異な り ま す 。 


3.8。1 文字 定数 


文字 定数 は 、 文字 列 を 引用 符 ( ” ) で 囲ん で 表し ます 。 文字 列 の 長き は 255 文 字 以 内 で な けれ ば な り 
ませ ん 。 ま た 、 数 字 を 引用 符 で 囲む と 文字 列 と みな され 、 算 術 帝 算 に 用 いる こと は で きま せん 。 文字 
列 は 常に キャ ラク タコ ー ド が 0 で 終わ り ま す 。 は じ め の キャ ラク タコ ー ド が 0 の も の は ヌル スト リン 
グ (null 文字 、 無 文字 列 ) と し て 扱い ます 。 


例 ) "THANK YOU" 
"3.14159265”" 


3.3.2 整数 型 定数 
整数 型 の 定数 に は 、 以 下 の 4 つの 形式 が あり ます 。 
@ 10 進 形式 
int 型 な ら 一 2.,147,483.648 か ら 2.147,483,647 ま で 、char 型 な ら 0 か ら 255 ま で の 整数 で す 。 負 の 


整数 の 場合 、 数 値 の 前 に 必ず マイ ナス 符号 (一 ) を つけ な けれ ば な り ませ ん が 、 プ ラス 待 号 ( 十 ) は 省略 
@ き ます 。 
例 ) 0 
ー123 


@ 8 進 形式 

先頭 に &O( ま た は &o) を つけ て 8 進数 (0 一 7 ) を 並べ た も の で す 。 範囲 は int 型 で は &O 0 一 篤 
037777777777 ま で で す 。&O37777777777 一 多 O20000000000 ま で は 負 の 数 で 、 一 1 か ら 一 
2.147,483.648 に 対応 し ます 。 


例 )&O12345……… 10 進 数 で は 5349 
&O37777777777………10 進 数 で は 一 1 


char 型 で は 、&O 0 一 &0377 が 0 255 に 対応 し ます 。 


65 


第 3 章 X-BASIC の 文法 


@ 16 進 形式 

先頭 に &H( ま た は &h) を つけ て 16 進 数 ( 0 - 7 、 AF また は af) を 並べ た も の で す 。 範囲 は int 
型 で は &H 0 一 HFFFFFFFF まで で す 。 必 HFFFFFFFF 一 &H80000000 ま で は 負 の 数 で 、 一 1 
か ら 一 2,147,483.648 に 対応 し ます 。 


例 )&H100………10 進 数 で は 256 
&HFFFFFFFF……-10 進 数 で は 1 


char 型 で は 、&H0 一 &HFF が 0 一 255 に 対応 し ます 。 


@ 2 進 形式 

先頭 に 交 B (また は &b) を つけ て 2 進数 (0 か 1 ) を 並べ た も の で す 。 範 囲 は int 型 で は &B 0 一 
層 B11111111111111111111111111111111 (32 桁 ) ま で で す 。 錠 B11111111111111111111111111111111 
ー 立 B10000000000000000000000000000000 ま で は 負 の 数 で 、 一 1 か ら 一 2,147,483.648 に 対応 し ま 
す 。 


例 )&B100000000……-10 進 数 で は 256 
&B1111.……(32 桁 )……10 進 数 で は 1 


char 型 で は 、 交 B 0 一 交 B11111111 が 0 一 255 に 対応 し ます 。 


* 注 意 : 2 進 形式 、8 進 形式 、16 進 形式 で 入力 され た 数 値 は 、print や lprint 命令 で 出力 する と 、10 
進 形 式 で 出力 され ます 。10 進 以外 の 形式 で 出力 する と き は 、 そ れ ぞ れ bin$ 、oct $ 、hex $ を 使っ て 
文字 列 と し て 出力 し て くだ さい 。 


@ その 他 


"(アボ ポス トロ フィ ) で 囲ま れ た 1 文字 の 文字 デー タ は 、 そ の キャ ラク タコ ー ド を 値 と し た char 型 
の 数 値 と な り ま す 。 


例 )'A' 博志 ! 旬 1 char 弄 の 65 
3.3.3 実数 型 (浮動 小数 型 ) 定 数 
実数 型 の 定数 に は 、 以 下 の 3 つの 形式 が あり ます 。 


@ in 型 の 範囲 を 超え る 数 値 
@ 14 桁 以内 の 数 値 と E( ま た は e) を 使っ た 指数 表示 の 組み 合わ せ (E また は e の 男 囲 は 土 308) 
@ 最後 に. (ピリオド) か #( 番 号 記号 ) が 付け られ た 数 値 


例 )3000000000 
1235E-20 
5。 
426# 
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3.4 式 と 演算 


式 と は 、 演算 (計算 ) の 文法 を 示す も の で あり 、 定 数 や 変数 を 演算 子 (計算 に 使う 特殊 記号 の こと ) で 
結ん だ も の で す 。 式 の 演算 結果 は 1 個 の 数 値 ま た は 文字 列 に な り ま すか ら 、 単 に 数 値 や 文字 だ け の も 
の も 式 と 呼び ます 。 


例 ) “BASIC" 
10 十 3/5 
2 
a 十 b/c 一 d 


X-BASIC の 演算 は 、 次 の 5 つ に 分 けら れ ま す 。 


@ 算術 演算 
@ 関係 演算 
@ 論 理 演算 
@ 関数 演算 
@ 文字 列 演算 


以下 に これ ら の 演算 に つい て 説明 し ます 。 
3.4.1 算術 演算 


算術 演算 子 に は 次 の よう な も の が あり ます 。 な お 、 算 術 式 の 中 に 文字 定数 や 文字 変数 が 入っ て は い 
け ま せん 。 


演算 子 演算 例 

マイ ナス 符号 示 

*、/ 乗算 、 除 算 X ネ ※Y、X/y 

\、mod 整数 の 除算 、 剰 余 x 芋 y x mod y 
利 、m 加算 、 減 算 で は (では / 

shr 右 シ フト x shr y 

shI 左 シ フト x shl y 


演算 の 優先 順序 も 、 こ の 順番 に な り ます 。 順序 を 変更 し た いと き に は 括弧 ( ) を 使え ば 、 括 弧 内 の 
演算 子 は 他 の 演算 子 より 先 に 実行 され ます 。 


参考 
@ 整 数 で の 演算 
変数 や 定数 の と き と 同 様 に 、 演 算 で も デー タ 型 を 意識 し な いと 予想 外 の 結果 に な る こと が あ 
り ます 。 X-BASIC で 扱う 数 は 、 デ ー タ 型 が 指定 され て いな いと すべ て 整数 Gnt 型 ) と 見 な され 
ます か ら 、 
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? 173 
の 答え は 0 と な り ま す 。 こ れ を 実数 の 演算 と し て 扱う に は 、 
? 1.0/3( ま た は ? 1#/3) 
ある い は 
* 1/3.0( ま た は 7 1/39) 
の よう に し な けれ ば な り ま せん 。 
@\ と mod 
整数 の 除算 で は 、 プ の か わり に を 使っ て 割り 切れ な か っ た 場合 の 答 の 小数 点 以下 を 切り 捨 
て る こと が で きま す 。 扱 う 数 値 が 実数 の 場合 は 、 演 算 が 実行 され る 前 に 小数 点 以下 が 切り 捨て 


られ ます 。 また 、 余 り を 求め た いと き に は mod を 使い ます 。 この 場合 も 、 扱う 数 値 が 実数 の 場 
合 は 、 演 算 が 実行 され る 前 に 小数 点 以下 が 切り 捨て られ ます 。 


例 )print 10 \ 3 


3 (1073= 3…… ! 肝 
print 10 \ 2.5 
5 (10/2= 5…… 0 ) 
print 13.3 mod 4 
1 (13/4= 3 …… 1 ) 
@ 0 で の 除算 


数 値 を 0 で 割っ た と き に は 、" 0 に よる 除算 が 行わ れ ま し た "と いう エラ ー メ ッ セ ー ジ が 表示 
され 、 プ ログ ラム を 中 断 し ます 。 0 に 対し て 負 の べき 乗 を 行っ た 場合 も 同様 で す 。 


@ オーバーフロー( 桁 あふ れ ) 
代入 や 演算 の 結果 が 、 そ の 変数 の 型 の 中 で 表現 で きる 範囲 を 越え た 場合 、 桁 あふ れ が お こり 
ます 。 こ の 場合 、“ オ ー バ ー フ ロー し まし た "と いう エラ ー メ ッ セ ー ジ が 表示 され 、 プ ログ ラム 
を 中 断 し ます 。 


@ shr と shI( シ フト 演算 ) 
普通 の 算術 で は 使わ れ ま せん が 、 2 進数 を 扱う コン ピュ ー タ の 世界 で は 多用 され ます 。 整数 
値 を 2 進 形式 の ビッ ト 列 と 考え 、 そ の ビッ ト 列 を ある 回 数 右 や 左 に 移動 (セフト ) させ る こと を 

シフ ト 演 算 と いい ます 。 


例 )? 6 shr 2 
1 (&b00000110 一 b00000001) 
の 3 ShI 3 


24 (&b00000011 つ &b00011000) 
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シフ ト 後 の 桁 に は 、 0 が 入り ます 。 


3.4.2 関係 演算 

関係 演算 子 は 、 2 つの 数 値 ま た は 2 つの 文字 列 を 比較 する と き に 用 いま す 。 関係 演算 の 結果 は 、 真 
(1)、 偽 (0 ) で 返さ れ 、if 命令 な た ど で プ ログ ラム の 流れ を 変え る の に 用 いら れ ま す 。 以下 に 、 関係 
演算 子 の 意味 と 例 を あげ ます 。 


関係 演算 子 内容 例 
一 左辺 と 右辺 が 等 し い XY 
に っ 左辺 と 右辺 が 等 し く な い x ベ >y 
く 右辺 より 左辺 が 小さ い X く Y 
> 右辺 より 左辺 が 大 きい x>y 
く 三 右辺 より 左辺 が 小さ いか まだ は 等 し い ーー 
> 三 右辺 より 左辺 が 大 きい か また は 等 し い x> ニ y 


例 )f x 三 0 then print "A" 
(も し x が 0 だ っ た ら 、"A" を 表示 ) 
if  a 十 b く > 0 then  x 三 a 十 b 
(も し a+Tb が 0 で な か っ た ら 、x に ab の 値 を 代入 せよ ) 


詳し く は 、 第 4 章 を 参照 し て くだ さい 。 
3.4.3 論理 演算 


論理 演算 子 は 複数 の 条件 を 調べ た り 、 ビ ッ ト 操 作 や ブー ル 演 算 を 行っ た りす る の に 用 いま す 。 論 理 
演算 の 結果 は 、 ビ ッ ト ご と に 0 また は 1 で 返さ れ ま す 。 各 論理 演 算 の 内 容 を 以下 に 示し ます 。 


not( 否 定 ) 
X not x 
1 0 
0 1 
and( 論 理 積 ) 
X y x and y x y 
1 1 1 
1 0 0 
0 1 0 
0 0 0 


69 


第 3 章 X-BASIC の 文法 


or( 論 理 和 ) 
Xx y X OF が 了 y 
1 1 1 
1 0 1 
0 由 1 
0 0 0 
xor( 排 他 的 論理 和 ) 
X y X。 XOr。 
1 1 0 
1 0 1 
0 1 1 
0 0 0 


if 命令 で は 、 こ れ ら の 論理 演算 子 を 使っ て 、 複 数 の 条件 を 判断 する こと が で きま す 。 


例 )f x く 0 or 99<x then x 三 0 
(x が 負 の 数 また は 99 よ り 大 きけ れ ば 、x に 0 を 代入 する ) 
if 0 く x and x く 100 then x ニ 0 
(x が 正 の 数 で し か も 100 よ り 小 さけ れ ば 、x に 0 を 代入 する ) 
if not(a テ 0) then x 三 0 
(a が 0 で な けれ ば 、x に 0 を 代入 する ) 


詳し く は 、 第 4 章 を 参照 し て くだ さい 。 


用 語 の 説明 
@ ビット 
コン ピュ ー タ の 扱う デー タ の 最小 単位 。 1 ビッ ト で 0 か 1 か の 2 つの 状態 を 表し ます 。 
@ ビット 操作 
ビッ ト の 並び の 中 の 任意 の ビッ ト を ON/OFF する (1 に し た り 0 に し た りす る ) よ うな 操 
作 を いい ます 。 
@ ブー ル 演 算 
イギリス の 数 学者 ブー ル が 唱え た 論理 演算 。 普 通 の 演算 が 数 値 を 扱う の に 対し て 、 真 か 偽 か 
を 扱う 演算 で す 。 BASIC で は 、 真 は 0 以外 、 偽 は 0 と いう 値 を 取り ます 。 


3.4.4 関数 演算 


関数 と は 、 基本 的 に は 指定 され た デー タ に 対し て 、 あ る 決ま っ た 処理 を 行う も の で 、 そ の 処理 の 結 
果 を 返す も の で す 。 

X-BASIC の 関数 に は 、sin や sqr な どの 数 値 を 扱う も の や 、chr$ や left$ な どの 文字 列 を 扱う も 
の な ど が あり ます 。 ま た 、 最 初 か ら 定 義 S さ れ た も の で は な く 、 プ ログ ラマ が 自由 に 関数 を 定義 する た 
め の 命令 (func 一 endfunc) も 持っ て いま す 。 
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これ ら の 関数 に つい て は 、 第 4 章 で 詳し く 説 明 し ます 。 


参考 
X-BASIC の 命令 は 、 大 きく 3 つ に 分 ける こと が で きま す 。 
@ コ マン ド list、new な ど が その 代表 で 、 主 に プロ グラ ム を 書い た り 編 集 し た りす る た 


め の 命令 で す 。 ダ イレ クト モー ド で の み 使 用 する 命令 で す 。 
@ ス テー トメ ント print、if な ど が その 代表 で 、 主 に プロ グラ ム 中 で 核 と な る 命令 で す 。 
@ 関数 sin、cos な ど が その 典型 で 、 与 を られ た デー タ に 対し て 、 何ら か の 処理 を 行 
いそ の 結果 を 返す も の で す 。 
な お 、 関 数 名 と 引数 を くく る 左 括弧 と の 間 は あけ な いで くだ さい 。 


3.4.5 文字 列 演算 


@ 文字 列 の 連結 
文字 列 は 、 演 算 子 十 を 使っ て つなげ る こと が で きま す 。 だ た と えば 、 


10 str a デ "ハル ガ ":str b ニ "キタ ":str c 
20 ca 十 b 

30 print c 

40 end 


この プロ グラ ム を 実行 する と 、 画 面 に は 「 ハ ル ガ キ タ 」 と 表示 され ます 。 


@ 文字 列 の 比較 

文字 列 も 、 数 値 の 比較 に 使わ れる も の と 全く 同じ 関係 演算 子 ( ニ 、 く 、>、 く >、 く =、> テ ) を 用 いて 比 
較 す る こと が で きま す 。 

文字 列 の 場合 、 それぞれ の 文字 列 の 先頭 か ら 1 文字 ずつ 文字 を 比較 し ます 。 両 者 が 全く 同じ 文字 列 
の 場合 は 、 そ の 2 つの 文字 列 は 等 し く な り ま す が 、 1 文字 で も 直 っ た 場合 は 、 そ の 文字 の キャ ラク タ 
コー ド (資料 編 「 キ ャ ラク タコ ー ド 表 」 参照 ) の 大 きい 方 の 文字 列 が 大 きい と 判断 され ます 。 ま た 、 文 
字 列 の 一 方 が 短く て 比較 が 途中 で 終わ っ た 場合 は 、 短 い 文 字 列 の 方 が 小さ いと 判断 され ます 。 

な お 、 文 字 列 の 比較 に お いて は 、 空 白 な ども 意味 を 持ち ます か ら 注 意 し て くだ さい 。 


例 )"AB" 人 二 誠 (で 因 
"BC" > "AAA" 
"CAT” 。 < く "CATS" 
IPEN' 。 > "PEN" 
"cm" > CM" 
"BASIC" “BASIC" 


文字 列 を 比較 する こと に よっ て 、 文 字 列 の 内 容 を 調べ た り 、 文 字 を アル ファ ベッ ト 順 に 並べ か えた 
りす る の に 利用 で きま す 。 
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3.4.6 演算 の 優先 順位 
演算 は 次 の 順位 に よっ て 行わ れ ま す 。 


1) カッ コ で 囲ま れ た も の 8) shr、shl 

2) 関数 9) 関係 演算 子 ( ニ 、 く 、> な ど ) 
3) マイ ナス 符号 (一 ) 10) not 

4) *、/ 11) and 

5) 釜 12 ま の 9 

6) mod 13) xor 

Ns 三 


4 の 


第 4 


章 リフ ァ レ ンス 


+ 


命令 関数 の 書き 方 で す 。 
く > で 囲ま れ た 項目 は 、 必 要 と され る 引数 や デー タ で す 。 
[ 〕 で 囲ま れ た 項目 は 、 省 略 可能 で す 。 
. は 、 同 様 に 繰り 返し 、 引 数 や デー タ を 与え る こと を 表わし ます 。 
これ 以外 の 文字 ( 馬 約 語 、{ }、[ ] な どの 記号 類 ) は その まま 入力 し な けれ ば な り ま 
せん 。 
コマ ンド や ステ ー ト メン ト な ど は 、 原 則 と し て 命令 名 と デー タ の 間 に は 、 空 日 を 入れ 
て くだ きい 。 ま た 、 関 数 名 と 引数 を くく る 左 括弧 の 間 に は 、 空 碧 を 入れ な いで くだ さ 


い 。 
省略 で きる 命令 や 関数 の 書き 方 で す 。 な お 、 引 数 、 括 弧 な ど は 省略 で きま せん 。 


関数 が 原則 と し て どう いう 型 の 引数 を 必要 と する か を 表わし て いま す 。 

数 値 型 と し て int、char、float、 文 字 型 と し て str の 4 つの デー タ 型 が あり ます が 、 複 
数 の 種類 の 引数 を 取る 関数 に つい て は 、 そ れ ぞ れ の デー タ 型 に 応じ て 括弧 で くく っ て 
まとめ て あり ます 。 数値 型 で あれ ば 何で も よい 場合 は 数 値 型 と 表記 し て いま す 。 ま た 、 
引数 が 特に 変数 名 や 配列 名 (配列 の 場合 は 次 元 も 明記 し て いま す ) で な けれ ば な ら な 
い 場 合 (定数 、 式 な ど が 引数 と な ら な い ) は 、 そ の よう に 明記 し て いま す 。 


すべ て の 関数 に つい て 、 そ の 戻り 値 の 型 が 書い て あり ます 。int、char、float、str、 
お よび 意味 を 持た な い 戻 り 値 (戻り 値 が 存在 し な い 場 合 も 含む ) と し て void、 の 5 つの 
型 が あり ます 。 


各 命令 関数 の 機能 お よび 、 引 数 の 意味 な ど を 説明 し て いま す 。 
関連 し た 命令 や 、 文 法 な ど 参考 に な る も の を 挙げ て あり ます 。 


簡単 な サン プル プロ グラ ム 用 例 で す 。 
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標準 関数 


abs(n) 

float 

float 

数 値 n の 絶対 値 を 返し ます 。 

19 /* abs sample 

み の まる nt 8a&1 も も 1 or di 

39 float af 

49 soreen 1,3,1,1 

59 vpage(1) 

69 1ine(9,255,511,255,65535,&HFFFTF ) 
7 の ずら の か &3= ユ も o もち 

8 の 9 for bi= の 9 to 511 

909 af=(2*pi ( )*bi ) /512*ai 
199 ci=255-abs(sin(af)*200) 
110 di=rnd()*65535 

1209 pset(bi,ci,di ) 

1309 next 

149 next 

1509 end 
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apage(Da) 
char 
void 
機 能 グラ フィ ッ ク 画 面 の アク ティ ブ ペ ー ジ pa( グ ラフ ィ ッ ク 画 面 で 実際 に 読み 書き する ペ 


ー ジ ) を 指定 し ます 。 ペー ジ 番 号 は 0 一 3 で 、 最 大 値 は グラフィック 画面 の 実 画面 サイ 
ズ 及 び 色 モー ド に より ます 。 


グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に よる アク ティ ブ ペ ー ジ pa の 値 の 範 


半 
1024X1024(16 色 モー ド ) …… 0 
512X512(16 色 モー ド ) ……… 0 一 3 
512X512(256 色 モー ド )………0、1 


512X512(65536 色 モー ド )……… 0 


home、screen、 vpage、window 


っ 
1 /* apage sample 


2 の int ai,bi ,oi 

39 screen 1,1,1,1 

49 vpage(&B1111) 

59 for ai= の to 8 

69 /* aotiyve page(9) 


70 apage(0) 

89 bi=rnd( )*15 

99 fi11(59,59,299,209,bi ) 

190 Symbo1(210,59, "アク ティ フ * へ "ーー シ * 9 "1.1,1,bi , 0 ) 
1109 pause( ) 

129 /* aotive page(1) 

130 apage(1) 

1409 bi=rnd( )*15 

159 fi]11(199,199,259,259,bi ) 

169 symbo1(269,190," ア クティ フ * へ ー シ * 1 "1, 1,1,bi ,6) 
170 pause( ) 

189 /* aotive page(2 ) 

190 apage(2) 

2009 bi=rnd( )*15 

210 fi11(159,159,309,399, bi ) 

220 Symbo1(310,150," ア クティ フ * へ "ーー シ トー 27 1.1,1,bi 9) 
239 pause( ) 

249 /* aotive page(3) 

250 apage(3) 

269 bi=rnd( )*15 

279 fi]11(299,299,359,359,bi ) 

280 symbo1(369,209," ア クティ フ * ヘマ ー シ * 37」1,1,1,bi , 6) 
290 pause( ) 

399 next 

319 end 


329 funo pause( ) 

339 for ci= の to 10909 
349 next 

359 endfuno 
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ア 
の ) 
C) 


標準 関数 
| 書式 | asc (st) 
str 
文字 列 st の 先頭 文字 の キャ ラク タコ ー ド を 返し ます 。 


st が null 文 字 の 場合 は 0 を 返し ます 。 文字 と キャ ラク タコ ー ド の 対応 に つい て は 、「 キ 
ャ ラク タコ ー ド 表 」 を 参照 し て くだ さい 。 


chr $ 、「 キ ャ ラク タコ ー ド 表 」 


/#* asSo Sample 

str as,bs 

39 as="a" 

49 bs="abcd" 

59 print aso( "axyz") 

69 print asc(as) 

79 print aso(bs ) 

80 print asc(as)*aso( bs ) 
9 の end 


用 例 


ド + 
TS 
SS ぐ @ マ 


ATAN 準 関数 


atan(n) 
float 
float 


数 値 n の 逆 正 接 (アー クタ ンジ ェ ン ト ) を 返し ます 。 一 ヶ /2 か ら ヶ /2 ま で の 値 を 返し ます 。 


通 | 落 | | 測 | || | 中 
婦 | | 璧 | | 秦 | | 難 | | 六 


1 の /* atan sample 

29 int ai,bi ,oi ,d ュ 

39 fl]oat af 

4 の 9 scoreen 1,3,1,1 

5 の vpage(1) 

69 1ine(9,255,511,.255,.65535,&HFFFF ) 
7 の 9 for ai=1 to 3 


8 for bi= の 9 to 511 

99 af=bi-255 

199 ci=255-atan(af ) *a1*49 
119 di=rnd( )*65535 

120 pset(bi,o1,di ) 

139 next 

149 next 

159 end 
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+ 


atof (st) 
Str 
float 


文字 列 st を float 型 の 数 値 に 変換 し ます 。st は 、float 型 の 数 値 に 変換 で きる 文字 
(+、 一 、0 一 9、 .、e、E) の 連続 で す 。 も し float 型 の 数 値 と し て 判定 で き な い 文字 
が ある と 、 そ こ て で 変換 する の を や め ま す 。 

st の 先頭 の 空白 文字 や タブ 文字 は 無視 され ます 。 また 、 小 数 点 の 前 後に は 少な く と も 1 
つ 以 上 の 数 字 が 必要 で す 。 さらに 、 指数 表現 で は 、 e あ る い は E の 後ろ に 少な く と も 1 つ 
以上 の 数 字 が 必要 で す 。 

st が null 文 字 の 場合 は 、 エ ラー と な り ま す 。 


変換 で きる 文字 列 st の 書式 は 次 の 通り で す 。 
〔whitespace〕 〔sign] 〔digits] 〔. digits] 【e 〔 ま た は EJ) 【sign] digits) 


whitespace ……… 空白 文字 また は タブ 文字 で 無視 され ます 。 
Sien "Tim "より まな は アー" 
digits oiii… 1 つ 以 上 の 10 進 数 で 、 小 数 点 の 前 に 何 も ちな けれ ば 、 小 数 点 


の 後ろ に 少な く と も 1 つの 数 字 が 必要 で す 。 
指数 は "e”。 また は "E" と 符号 を と も な っ た 10 進 数 で 構成 され ます 。 


ecvt、 fcvt、 gCVt 


19 /* atof sample 

29 float af,bf,of 

3 の 9 str as,bs,os[59] 

40 as="3999999909990" 

59 bs="-2.51235e-2" 

69 cs="9.5192123542131543512312313453543543513213" 
70 af=atof(as ) 

89 bf=atof (bs ) 

9 の 9 cf=atof(os ) 

199 print af*2.5E+030# 

119 print bs+"+"+og+ す "= リ ":bf+of 
129 print bs+"* ま リ + ォ os+ "= ニ ":bfF*oFf 
139 end 


第 4 章 リフ ァ レ ンス 


ATOI [ 準 関数 
atoi(st) 
引 数 str 


im 


機能 文字 列 st を int 型 の 数 値 に 変換 し ます 。st は 、int 型 の 数 値 に 変換 で きる 文字 (0 
ー9、 填 、 一 ) の 連続 で す 。 も し int 型 の 数 値 と し て 判定 で き な い 文字 が ある と 、 そ こ で 変 
換 す る の を や め ま す 。 
st の 先頭 の 空白 文字 や タブ 文字 は 無視 され ます 。 また 、 st に は 少な く と も 1 つつ 以上 の 数 
字 が 必要 で す 。 
st が null 文 字 の 場合 は 、 エ ラー と な り ま す 。 


変換 で きる 文字 列 st の 書式 は 次 の と お り で す 。 
[whitespace] 〔sign] digits 


whitespace (it 空白 文字 また は タブ 文字 で 無視 され ます 。 
Si reirereetttn FI または っ" 
digitep ii… 1 つ 以 上 の 10 進 数 


itoa 


5 
用 例 1 の /* atoi sample 
29 


int ai,bi 
30 str as,bs 
49 as="399999" 
59 bs="-512" 
69 ai=atoi (as ) 
79 bi=atoi ( bs ) 


8 の print as+"+("+bs+") = jai+bi 
9 print as+"*("+bs+" ) = リ "jai* ネ bi 
199 end 
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auto 〔 く 行 番 号 >]〔, < 増分 >〕 
8 . 


プログ ラム 行 の 先頭 に 行 番号 を 自動 的 に 発生 きせ ます 。 
< 行 番 号 > も < 増 分 > も 省略 で きま す が 、 こ の 場合 は 自動 的 に 10 が 採用 され ます 。 た と え 
は ば 、 
auto 行 番号 は 10 を 先頭 に 20、30・… と 付け られ ます (auto 10,10 と 同 
じ )。 
auto100 行 番号 は 100 を 先頭 に 110、120… と 付け られ ます 。 
auto ,5 行 番号 は 10 を 先頭 に 15、20・… と 付け られ ます 。 


プロ グラ ム 中 に すでに 存在 する 行 と 同じ 行 番号 が 発生 し た 場合 に は 、 そ の 行 の 内 容 が 
すべ て 表示 され ます 。 こ の と き 、 何 も 入力 し な いで リタ ー ン キー を 押せ ば 、 そ の 行 の 
内 容 は 変わ り ま せん 。 

auto 機 能 を 解除 する と き は 、 | BREAK | キー (また は |CTRL|+| C | キー) を 押し ま 
す 。 解除 し た と き の プ ログ ラム 行 は メモ リ に 保存 され ませ ん 。 
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A_PLAY 


AUDIO 


呈 | | 陸 
癌 | | 半 


油 
氏 


= 
q ト 
CC 


a play(na,sfmd(, Ing] ) 


数 値 型 一 次 元 配列 名 (na) ,char (sfmd,Ing) 


void 


指定 され た 配列 na の PCM デ ー タ を 再生 し ます 。 


和 a PCM テ ー タ を 格納 し て いる 数 値 型 一 次 元 配 列 名 
Sf …… サン プリ ング 周波 数 


Oxesx8.9KHz 
日 2csads 5.2KHz 
Ao 7 .8KHz 
8swm 10.4KHz 
准 wdxo 15.6KHz 


音声 を 再生 する 場合 、 原 則 と し て a rec 関 数 で 録音 し た と き の サ ンプ リン グ 有 周 
波数 sf を 使用 し て くだ さい 。 そ れ 以 外 を 使用 する と 、 録 音 し た 音声 を 正常 に 再生 


で きま せん 。 
MGU oo 音声 出力 モー ド (本 機 後面 の オー ディ オ 出 力 端子 か ら の 音声 信号 出力 
も ーー ド ) 
Ocseon 出力 カッ ト 
ccc 友則 放 
2……- 右 出力 
3. ステ レオ 出力 


Ing …… 再生 する 配列 na の 添字 0 か ら の 長 さ 
Ing の と りう る 値 は 、1 か ら 、 配 列 名 na で 宣言 され た 配列 の 添字 士 1 まで で す 。 
Ing を 省略 する と 、 す べ て の PCM テ デー タ を 再生 し ます 。 


/* a_play sample 
int ai 
char ao 
dim ohar aoa( 10923) 
/* read BEEP.SYS file 
ai=fopen( "8a:\SYS\BEEP.SYS" , "re" ) 
fread(aca,1924,ai ) 
fol1ose(ai ) 
/* beep 
repeat 
print "b e ep 音 を ステ レオ 出力 で 発生 し ます !" 
print "サン プリ ング 周波 数 3.9KHz---9" 
print "サン プリ ング 周波 数 5.2KHz---1" 
print "サン プリ ング 周波 数 7.8KHz---2" 
prin も t "サン プリ ング 周波 数 16.4KHz---3" 
print "サン プリ ング 周波 数 15.6KHz---4" 
input "サン プリ ング 周波 数 を 入力 し て くだ さい (@---4) "jao 
uriti1 ao<5 


a_ play(aoa,ao,3 ) 
end 
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AUDIO 


a rec(na,sf〔, Ing] ) 

数 値 型 一 次 元 配 列 名 (na) ,char (sf,Ing) 

Void 

指定 され た 配列 na に PCM デ ー タ を 録音 し ます 。 


vo PCM デ ー タ を 格納 する 数 値 型 次 元 配 列 名 


0C! 

sf …… サン プリ ング 周波 数 
0………3.9KHz(1 秒 間 に 消費 する メモ リサ イズ 1950 バ イト ) 
Nenaeee 5.2KHz(1 秒間 に 消費 する メモ リサ イズ 2600 バ イト ) 
2 7.8KHz(1 秒間 に 消費 する メモ リサ イズ 3900 バ イト ) 
3………10.4KHz(1 秒間 に 消費 する メモ リサ イズ 5200 バ イト ) 


4 ………15.6KHz(1 秒間 に 消費 する メモ リサ イズ 7800 バ イト ) 
Ing …… 録音 する 配列 na の 添字 0 か ら の 長 さ 
Ing の と りう る 値 は 、 1 か ら 、 配 列 名 na で 宣言 され た 配列 の 添字 十 1 まで で す 。 
Ing を 省略 する と 、 す べ て の PCM テ デー タ を 録音 し ます 。 


19 /* a_ reo sample 

29 int ai 

39 char ao 

49 str as 

59 dim char aca(65535) 

6 の 9 screen 2,.9,1,.9 

70 /* reocord 

8 の repeat 

99 print “録音 する た め の サ ンプ リン グ 周 波数 " 

1909 print も " (の =3.9KHz,1=5.2KHz,2=7 .8KHz,3=19.4KHz,4=15.6KHz)" 

119 inpu も t "録音 する た め の サ ンプ リン グ 周 波数 を 入力 し て くだ さい (9---4)--->": 
8C 

129 unti1] ao<5 

130 / キ * 

119 print "この 例 で は サン プリ ング 周波 数 に よっ て 次 の よう な 録音 時 間 に な り ま す " 

150 scitoh ao 

169 case 9:print " サン プリ ング 周波 数 ( 3.9KHz)---> 約 33 秒 間 ":break 

179 case 1:print " サン プリ ング 周波 数 ( 5.2KHz)---> 約 25 秒 間 ':break 

189 case 2:print " サン プリ ング 周波 数 ( 7.8KHz)---> 約 16 秒 間 "':break 

199 case 3:print 「『 サン プリ ング 周 濾 数 (19.4KHz)---> 約 12 秒 間 ":break 

299 case 1:print 「『 サン プリ ング 周波 数 (15.6KHz)---> 約 8 秒間 " 

219 endsrvitoh 

229 while as<>"y" 

239 print "録音 し ます の で 'y' キ * キ - を 押し て くだ さい " 

24 の as=inkey$ 

259 endrhile 1 

269 print "録音 中 で す " 

270 a rec(aoa,ac,65536 ) 

28 の 9 as="" 

299 print "<test.dat> と いう ファ イル に 録音 デー タ を セー ププ し ます " 

399 print "(すでに ある ぐ test.dat> と いう ファ イル は 消去 され ます の で 注意 し て く 
だ ささ) “ 

319 print "セー ブ プ し て も よい 場合 は 'y'*- を 押し て くだ さい " 
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8C 


4509 
当 す る 
460 
479 
480 
499 
5090 


リフ ァ レ ンス 


as=inkey$ 
if as="y" then { 
ai=fopen("a:\test.dat","o") 
fwrite(aca,65536,ai ) 
fclose(ai ) 
] 
/* play 
repeat 
print "再生 する た め の サ ンプ リン グ 周 波数 " 
print "  (@=3。 9KHz,1= 5 .2KHz,2=7.8KHz,3=10.4KHz,4=15. 0 
input "再生 する た め の サ ンプ リン グ 周 波数 を 入力 し て くだ だ さ い (9---4)--->": 


unti1 aco<5 
/ キネ 
print "ここ で は 、65536 を さき ほど の 録音 時 間 と みな し て 、 再 生 さ せ た い 時 間 に 相 
値 (バイ ト 数 ) を 入力 し ます " 
repeat 
input "再生 する た め の バ イト 数 を 入力 し て くだ さい (9---65536)--->"iai 
unti] ai>-1 or ai<65537 
switoh ao 


case 9:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 ---〉"j" 3.9KHz 


"iai:break 
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case 1:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->":" 5.2KHz 


"ja1:break 
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case 2:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->":" 7.8KHz 


4 


"ia1i:break 


539 


case 3:print "再生 する た め の サ ンプ ブリ 


て 


グ 周 波数 と バイ ト 数 --->":"19.4KHz 


"jia1:break 
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case 4:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->"j"15.6KHz 


endswitoh 

aS="“" 

while as<>"y" 
prin も "再生 し ます の で 'y"*- を 押し で くだ さい" 
as=inkey$ 

endrwhile 

print "ステ レオ 出力 で 再生 し ます " 

a_ play(aca,ac,3,a81i ) 

end 


beep 


ビー プ 音 を 鳴ら し ます 。print chr$ (7) と 同じ 機能 で す 


用 例 1 /* beep samp1le 
み 


9 str as 
39 cl1s 
40 while as<>"b" 
59 1ocate 19,109 
69 print "'b'* キ - を 押す と ビー プ 音 が 発生 し ます !" 
79 aS=inkey$ 
89 endvhile 
99 beep 
109 end 
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BG_FILL 


SPRITE 


測 | |e| | 境 
仙 | | 閣 | | 


工 


エト 


CC 


bg fill(pg,pd) 

char (pg) ,int (pd) 

int 

指定 され た テキ スト ペー ジ pg を 、 指 定 さ れ た パタ ー ン デー タ pd で 埋め つく し ます 。 


DPg …… テキ スト ペー ジ (0、1) 
Dd …… ッ パ ター ン デ ー タ (0 一 移 HCFFF) 


パターン デ ー タ pd は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。 (ビッ ト 12、 13 は 通常 0 
に な り ま す 。) 

ビッ ト 15……… 垂 直 反 転 (0 : 通常 、1 : 垂直 反転 ) 

ビッ ト 14:……… 水 平 反 転 (0 : 通常 、 1 : 水平 反転 ) 

ビッ ト 8 一 11… ン パレ ッ ト ブ ロッ ク pb( 1 一 15) 

ビッ ト 0 一 7… ツ パタ ー ン コー ド cd( 0 一 255) 
垂直 反転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 上 下 反 転 し て 表示 され ます 。 ま 
た 水平 反転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 左右 反転 し て 表示 され ます 。 
パパ レッ トブ ロッ ク pb は 各 パ ター ン に 対し て 指定 する パレ ッ ト で 、 詳 細 に つい て は sp_ 
color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場 合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン 
の 場合 、0 か ら 191 ま で の 値 を と る こと が で きま す 。 テキ スト ペー ジ 0 、1 と も 使用 す 
る 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 127 ま で の 値 を と る 
こと が で きま す 。 テ キス トペ ー ジ 0 、 1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 し 
な い ) 場 合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 、 0 か ら 255 ま で の 値 を 
と る こと が で きま す 。 
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BG_G 巨 及 SPRITE 


bg get(pg,xy) 
char 
int 


指定 され た テキ スト ペー ジ pg の 指定 され た 座標 か ら パ ター ン デ ー タ を 読み 出し ます 。 


x……X 座 標 (0 一 63) 
Weseen Y 座 標 (0 一 63) 


読み 出さ れ た パタ ー ン デー タ は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。 (ビット 12、 
13 は 通常 0 に な り ま す 。) 

ビッ ト 15…… 垂 直 反 転 (0 : 通常 、1 : 垂直 反転 ) 

ビッ ト 14……- 水 平 反 転 (0 : 通常 、 1 ・ 水平 反転 ) 

ビッ ト 8 一 11… ン パレ ッ ト ブ ロッ ク pb( 1 一 15) 

ビ ピット 0 一 7… ン パタ ー ン コー ド cd( 0 一 255) 
垂直 反転 に な っ て いる 場合 は 、 実 際 に 定義 され た パタ ー ン に 対し て 上 下 が 反 転 し て 表 
示さ れ て いる こと を 意味 し ます 。 水平 反 転 に な っ て いる 場合 は 、 実 際 に 定義 され た パ 
ター ン に 対し て 左右 が 反転 し て 表示 され て いる こと を 意味 し ます 。 
ッ パ レッ トブ ロッ ク pb は 各 パ ター ン に 対し て 割り あて られ て いる パレ ッ ト で 、1 か ら 15 
の 値 を 返し ます 。 詳 細 に つい て は 、sp color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場 合 の パパ ター ンコ ー ド cd は 16X16 ド ッ ト パ ター ン 
の 場合 、0 か ら 191 ま で の 値 を 返し ます 。 テキ スト ペー ジ 0 、1 と も 使用 する 場合 の パ 
ター ンコ ー ド cd は 16X16 ド ッ ト パ ター ン の 場合 、 0 か ら 127 ま で の 値 を 返し ます 。 テ キ 
スト ペー ジ 0 、 1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 し な い ) 場合 の パタ ー ン 
コー ド cd は 16X16 ド ッ ト パ ターン の 場合 0 か ら 255 ま で の 値 を 返し ます 。 


bg put 
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BG_PUT SPRITE 


bg _put(pg,X,Y,pd) 

char (pg,x,y) ,int (pd) 

int 

指定 され た テキ スト ペー ジ pg の 指定 され た 座標 に 指定 され た パタ ー ン デー タ pd を 設 
定 し ます 。 


DS eo テキ スト ペー ジ (0、1) 


AA X 座 標 (0 一 63) 
iso Y 座 標 (0 一 63) 


DO …… ッ パ ター ン デ ー タ (0 一 移 HCFFE) 


パタ ー ン デー タ pd は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。 (ビッ ト 12、 13 は 通常 0 
に な り ま す 。) 

ビッ ト 15:……… 垂 直 反 転 (0 : 通常 、1 : 垂直 反転 ) 

ビッ ト 14:……… 水平 反転 (0 : 通常 、1 : 水平 反転 ) 

ビッ ト 8 一 11… ン パレ ッ ト ブ ロッ ク pb(1 一 15) 

ビッ ト 0 一 7… ツ パタ ー ン コー ド cd(0 一 255) 
垂直 反転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 上 下 反 転 し て 表示 され ます 。 ま 
た 、 水 平 反転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 左右 反転 し て 表示 され ます 。 
パレ ッ ト プ ブロ ッ ク pb は 各 パ ター ン に 対し て 指定 する パレ ッ ト で 、 詳 細 に つい て は 、sp 
_color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場 合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン 
の 場合 、0 か ら 191 ま で の 値 を と る こと が で きま す 。 テキ スト ペー ジ 0 、1 と も 使用 す 
る 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 、0 か ら 127 ま で の 値 を と 
る こと が で きま す 。 テ キス トペ ー ジ 0 、 1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 
し な い ) 場 合 の の パターン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 、 0 か ら 255 ま で の 値 
を と る こと が で きま す 。 


bg get 
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リフ ァ レ ンス 


BG_SCROLL SPRITE 


+ 


bg scroll(b〔, xJ〔,y〕 
char (b) ,int (xy) 
int 


バッ ク グ ラウ ンド b の スク ロー ル 座 標 を 設定 し ます 。 


人 バッ ク グ ラウ ンド (0、1) 
SS スク ロー ル 双 座標 (0 511 ま た は 1023) 
Yo…… スク ロー ル Y 座 標 (0 一 511 ま た は 1023) 


な お 、 表示 画面 サイ ズ が 256X256 の 場合 は 、 X、Y 座 標 は 0 か ら 511 ま で の 値 を と る こ 
と が で きま す 。 表示 画面 サイ ズ が 、512X512 の 場合 は X、Y 座 標 は 、 0 か ら 1023 ま で 
の 値 を と る こと が で きま す 。 た だ た だ し 、 表示 画面 サイ ズ が 512X512 の 場合 は バッ ク グ ラ 
ウン ド 1 は 表示 され ませ ん の で 注意 し て くだ さい 。 


bg stat 


BG_S 記 『 SPRITE 


+ 


bg set(b〔, pg〕J(,md)) 

char 

int 

バッ ク グ ラウ ンド b へ の テキ スト ペー ジ pg の 割り あて と 表示 の 設定 を 行い ます 。 


人 MaseRsais バッ ク グ ラウ ンド (0、1) 

Winrios テキ スト ペー ジ (0、1) 

md …… バ ッ ク グ ラウ ンド の 表示 (0 = 表示 し な い 、1 = 表示 する ) 
な お 、 表 示 画 面 サ イズ が 512X512 の 場合 の み 、 バ ッ ク グ ラウ ンド 1 は 表示 され ませ ん 
の で 注意 し て くだ さい 。 表示 画面 サイ ズ が 256 メ 256 の 場合 、、 バ ッ ク グ ラウ ンド 0、 
1 と も 表示 で きま す 。 


bg stat 
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BG_STAT SPRITE 


中 
23 


bg stat (bmd) 
char 


int 


落 | | 測 | |= 
璧 | | 庫 | | 


指定 され た バッ ク グ ラウ ンド b の 状態 を 読み 出し ます 。 


の バッ ク グ ラウ ンド (0、1) 


モー ド md に は 読み 出す 内 容 を 指定 し ます 。 

0 =X 座 標 (0 一 511 ま た は 1023) 

1 =Y 座 標 (0 一 511 ま た は 1023) 

2 ニテ キス トペ ー ジ (0、1) 

3 ニモ バッ ク グ ラウ ンド の 表示 (0 表示 され て いな い 、 1 三 表示 され て いる ) 
な お 、 表示 画面 サイ ズ が 256X256 の 場合 は 、 X、Y 座 標 に は 0 か ら 511 ま で の 範囲 の 値 
を 返し ます 。 表 示 画 面 サイ ズ が 512x512 の 場合 は 、X、Y 座 標 に は 0 か ら 1023 ま で の 
範囲 の 値 を 返し ます 。 た だ し 、 表 示 画 面 サ イズ が 512X512 の 場合 は 、 バ ッ ク グ ラウ ン 
ド 1 は 表示 され ませ ん の で 注意 し て くだ さい 。 


+ 


bg scroll、bg set 
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bin$ G) 
int 
Str 


整数 値 : を 2 進 表現 の 文字 列 に 変換 し 返し ます 。 な お 、 上 位 の "0" は 取り 除 か れ ま 
ず 。 


hex$、octS 


19 /* bin$ sample 

の in も ai。B1 

3 の 9 ai=-255 

49 bi=2190542300 

50 print bin$(ai ) 

69 print bin$(bi ) 

70 print bin$(ai)+bin$(bi ) 
809 end 
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BOX GRAPH 


1 

引 数 int 

戻り 値 void 

機 能 グラ フィ ッ ク 画 面 上 に ボッ クス (四角 形 ) を 描き ます 。 


1 …… 始点 X 座 標 

y1 …… 始点 Y 座 標 

X2 ……・ 終点 座標 

9 See 終点 座標 

DO の パレ ッ ト コ ー ド ( 色 ) 

1]S………… ラテ イ ジ ズ タ イ ルレ 
x1、y1、x2、y2 は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 クリ ッ ピ ング 
エリ ア に つい て は window 関 数 で 指定 され た 範囲 に な り ま す 。 また 、 パ レッ トコ ー ド p 
は 0 か ら 65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は 、 グラフィック 画面 の 実 画面 
サイ ズ 及 び 色 モー ド に より ます 。 
ライ ンス タイ ル 1ls は 0 一 65535 の 値 を と り 、 こ れ を 16 ビ ッ ト の ビッ トバ パタ ー ン と 見 な 
し 、 実 線 (&HFFFF) や 点線 (&HAAAA) な ど を 指定 する こと が で きま す 。 


10 /* box sample 
20 


int ai,bi,oi,di,e1,f エ 」 豆 1 
39 screen 1,3,1,1 


49 vpage(1) 

59 for ai= の to 1090 

69 bi=rand() mod 512 
709 ci=rand( ) mod 512 
80 di=rand( ) mod 512 
99 ei=rand( ) mod 512 
160 fi=rnd()*65535 
110 gi=65535 

120 box(bi,ci,di,ei,fi,gi ) 
139 next 

149 vwipe( ) 

159 for ai= の to 100 

1609 bi=rand( ) mod 512 
176 ci=rand( ) mod 512 
180 di=rand() mod 512 
190 ei=rand( ) mod 512 
290 fi=rnd()*65535 
210 g1=rnd()*65535 
220 box(bi,ci,di,e1i,f1,g1 ) 
230 next 

249 end 
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BREAK ステ デー トド メン ト 


書 式 break 
機 能 最も 内 側 の for、repeat、switch、while 文 か ら 抜け 出し ます 。 


= Continue 


19 /* break sample 
29 int ai 


39 ai=1 

4 の 9 switoh ai 

59 case 9:print "9":break 
69 case 1:print "1":break 
79 CaSse 2:print "2":break 
89 default:print "2 リ 7 


90 endswitoh 
199 for ai=9 to 19 


110 if ai=5 then print "5":break 
1209 print ai 

139 next 

149 uhile ai<>9 

159 if ai=2 then print "2":break 
169 ai=ai-1 

179 Print ai 


189 endwhile 
199 print "complete!" 
299 end 


CHAR ステ ー ト メン シト 


中 
下 


char < 変数 名 >(< 定 数 式 >〕〔,.…… ] 


工 
q ト 
CC 


変数 を 整数 (char) 型 と し て 宣言 し ます 。 同 時 に 値 を 代入 する こと も で きま す 。 
原則 と し て 、 家 者 言 は メタ イン プロ グラ ム の 先頭 で 行っ て くだ さい 。 ま た 、 同 じ 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 


2 float、int、str 


19 /* char sample 
用 例 29 ohar ao=41 
39 char be='AY 
49 char co=68,do='b! 
59 print ac 
69 print bc 
7 の Print Geo,dGC 
89 end 


90 


chdir "< ディ レク トリ 名 2" 


ディ レク トリ を 変更 し ます 。 く < ディレク ト リ 名 > の 詳細 に つい て は 、「Human68k ユ ー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


chdir "a:\bin" 


CHDRV UM 理 


chdrv "< ドラ イブ 名 >" 


カレ ント ドラ イブ を 変更 し ます 。 < ドラ イブ 名 > の 詳細 に つい て は 、「Human68k ユ ー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


chdrv "b:" 
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CHILD コマ ンド 


機 能 チャ イル ド プ ロ セ ス を 実行 し ます 。 
た と えば 、"command. x" を チャ イル ド プ ロ セ ス で 実行 する た め に は 、 同 じ デ ィ レ ク 
トリ に command.x" と いう ファ イル が あり 、 さ ら に command. x” を ロー ド す 
る だ け の エリ ア が 、 フ リー エリ ア と は 別に メモ リ 上 に な けれ ば な り ませ ん 。 
な お 、 ここ で 使用 で きる Human68k の コマ ンド に つい て の 詳細 は 、 「Human68k ユ ー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


!ed test,dat 


! く Human68k の コマ ンド > 
| 機 能 


!format b: 


CHR や 準 関数 


chr$ (ch) 


引 数 char 
sr 
キャ ラク タコ ー ド ch の 文字 を 返し ます 。ch= 0 の と き は null 文 字 を 返し ます 。 
ch は 0 一 255 の 範囲 で な けれ ば な り ませ ん 。 また 、 その 文字 が コン トロ ー ル キャ ラク タ 
と し て 定義 きれ て いる と 、 基 本 的 に は 文字 は 表示 され ず 、 そ の コン トロ ー ル コー ド の 
持つ 機能 が 実行 され ます 。 た だ し 中 に は 実行 され な いも の も あり ます 。 文 字 と キャ ラ 
クタ コー ド の 対応 に つい て は 、「 キ ャ ラク タコ ー ド 表 」 を 参照 し て くだ さい 。 


asc、「 キ ャ ラク タコ ー ド 表 」 


っ 
| 1 の 9 /* chr$ sample 
29 char ac, bo 

3 の 9 ac=&H41 
49 bo=&H31 
59 print chr$(13) 
69 print ohr$(aoc) 
79 print chr$( bo ) 
89 print chr$(ac)+ochr$( bc ) 
90 end 
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CIRCLE GRAPH 


唱 


式 


洪 | | 測 | | 王 
哉 | | 宣 | | 藻 


circle(x,yr,p 〔, s]【, e] 〔, hv] 〕 ) 
int 
Void 


グラ フィ ッ ク 画 面 上 に 円 や 椿 円 や 扇 型 、 円 弧 を 描き ます 。 


eeoee ats 円 の 中 心 の X 座 標 
yr 円 の 中 心 の Y 座 標 
8 円 の 半径 
Dem パレット コー ド ( 色 ) 
Sr 開始 角度 ( 度 ) 
CDO 終了 角度 ( 度 ) 
He 偏平 率 


x、y は 、 一 32768 か ら 32767 ま で の 値 を と り 、 半 径 r は 0 か ら 32767 ま で の 値 を と る こと 
が で きま す 。 ク リッ ピン グ エ リ ア に つい て は window 関 数 で 指定 され た 範囲 に な り ま 
す 。 ま た 、 パ レッ トコ ー ド p は 0 か ら 65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は 
グラ フィ ッ ク 画 面 の 実 画面 サイ ズ お よび 色 モ ー ド に より ます 。 
開始 角度 s、 終 了 角 度 e は 通常 0 か ら 360* の 値 を と り ま す 。 1 か ら 一 360' の 値 を 使用 
する と 扇 型 を 描く こと が で きま す 。 
偏平 率 hy は 0 一 65535 ま で の 値 を と る こと が で きま す 。 
hy<256 な ら 横長 椿 円 
hv=256 な ら 縦 横 比 1 の 真 円 (た だ し 768x512 以 外 の 表示 画面 サイ ズ で は 真 円 
と な り ま せん )- 
hv> 256 な ら 縦 長 椿 円 
19 /* oirole sample 


20 int ai,bi,oci ,d1i,e1 ff1 gg ュ 
39 screen 2,9,1,1 


49 vpage(1) 

59 for ai= の to 100 

69 bi=rand( ) mod 768 

79 ci=rand( ) mod 512 

89 di=rand( ) mod 200 

99 ei=ai mod 16 

109 circle(bi,oi,di,ei, の 9,369,256 ) 
119 next 

129 wipe( ) 


139 screen 1,3,1,1 
149 for ai=9 to 590 


159 bi=599-ai 

169 ci=hsv(ai mod 192,31,31) 

1709 circle(256,256,199,ci, の ,369,bi ) 
189 next 

199 wipe( ) 
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299 1ooate 32,15:print " 弧 " 
219 ]oocate 32,39:print " 扇 " 
229 for ai=9 to 17 


239 bi=ai*5 

240 C1=99-bi :d ュ =-99+bi 

259 e1=9 の +b1:f ュ =-99-bi 

260 gi=hsv(ai mod 192,31,31) 

270 cirole(256,299,150,gi,ci,ei , 400 ) 
2809 circle(256,439,150,gi,di,fi,4090) 
299 next 

399 end 


CLEAR 2 


機 能 変数 と スタ ッ ク を 初期 化し ます 。 プ ログ ラム 中 で は 使え ませ ん 。 
2 free 
CLS ステ デー ドド メジ ンド 
書 式 cls 
機 能 テキ スト 画面 の み を 消去 し ます 。 


19 /* cols sample 
29 int ai,bi 

3 の 9 soreen 2,9,1,1 

49 vpage(1) 

59 for ai=9 to 59 

69 fi11(rnd()*767,rnd()*511,rnd( )*767,rnd( )*511 ,rnd( ) *16 ) 
7 の 9 next 

89 for ai= の to 3 

99 for bi=9 to 2099 

199 print "X68909 6 

119 nex も 

129 for bi= の to 19999 

139 mext 

149 c1s 

159 next 

169 for ai= の to 19999 

179 next 

189 wipe( ) 

199 end 
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COLOR 


color パ 族 性 > 


col. 


テキ スト 画面 の 文字 の 属性 を 設定 し ます 。 


文字 の 属性 に は 、 4 つの パレ ッ ト と 、 強 調 、 リ バー ス が あり 、 0 一 15 の 値 を 使用 する 
こと で 設定 で きま す 。 デ フォ ルト と し て は 次 の よう な 属性 が それ ぞ れ 0 か ら 15 に 対応 


革 ま 。 

0 ノー マル 黒 

1 ノー マル ジア ンジ 
2 ノー マル 黄色 
3 プー マル 日 

4 ノー マル 強調 黒 

5 ノー マル 強調 シア ン 
6 ノー マル 強調 黄色 


7 ノー マル 強調 白 


15 


リバ ーー ス 
リバ ー ス 
リバ ー ス 
リバ ー ス 
リバ ー ス 強調 
リバ ー ス 強調 
リバ ー ス 強調 
リバ ー ス 強調 


白 


文字 の 属性 の 0 と 4 と 8 と 12 は 、 パ レッ ト (p0) に 対応 し ます 。 ま た 、 文字 の 属性 の 1 
と 5 と 9 と 13 は 、 フ パレット (p1) に 対応 し 、 2 と 6 と 10 と 14 は 、 パ レッ ト (p2) に 対応 
し 、 3 と 7 と 11 と 15 は 、 パ レッ ト (p3) に 対応 し ます 。 
各 パ レッ ト を 変更 する に は 、color [ ] 命 令 を 使用 し て くだ さい 。 


19 /* color sample 
2 int ai 
39 for ai= の to 15 


49 color ai:print "persona] workstation X68009 


59 next 
69 color 3 
79 end 
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COLOR [」 ステ ー ト メン ト 


color [c0,c1,c2,c3] 
col 


機 能 テキ スト 画面 の 各 パ レッ ト に カラ ー コ ー ド を 割り あて ます 。 


e0 の 属性 0 、4 、8 、12 の パレ ッ ト (p0) に 割り あて る カラ ー コ ー ド 
6 woon 属性 1 、5 、9 、13 の パレ ッ ト (p1) に 割り あて る カラ ー コ ー ド 
2 の it 属性 2 、6 、10、14 の パレ ッ ト (p2) に 割り あて る カラ ー コ ー ド 
(oo 属性 3 、7 、11、15 の パレ ッ ト (p3) に 割り あて る カラ ー コ ー ド 
カラ ー コ ー ド は 0 一 65535 の 値 を 使用 で きま す 。 属性 に つい て は color 命 令 を 参照 し て 
くだ さい 。 


19 /* color [] sample 

2 の nt ai1。 わ 1 GL de1 。 げ 1 

39 cls 

49 for ai= の to 15 

59 color ai 

69 print "persona] workstation 68999 結い 

79 print "persona] workstation X689090 

89 next 

99 color 3 

199 print "途中 で BREAK し た と き は 、'"run 219-! を 入力 し た あと 、 リ ター ン キ ー を 押し 
で 実行 し て くだ さき WT 

119 for ai= の 9 to 31 


120 for bi= の 9 to 31 

1309 for oi= の to 191 

1409 di=hsv(ci,bi ,ai )+1 

159 ei=hav(ci,31-bi,31-ai ) +1 
160 fi=hsv(oci,bi ,31-ai )+1 
1709 color [di。ei,fi,65535] 
1809 mext も 

1909 next 

200 next 


219 /* color defau1t value 

229 color [の 9,rgb( の 9,31,31)+1,rgb(31,31,.9)+1,65535] 
23 の 9 color 3 

240 end 
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CONSOLE 間 


書 式 console [< スク ロー ル 開 始 行 >], 【< く スクロール 行 数 >], く ファ ンク ショ ン キ ー 表 示 > 
cons 
機能 < スク ロー ル 開 始 行 > で 指定 し た 行か らく スク ロー ル 行 数 > 分 を テキ スト 画面 の スク ロ 


ー ル エリ り リア と し ます 。 

表示 画面 サイ ズ が 256X256 以 外 の テキ スト 画面 の 最 下 行 は 、 フ ァ ン クシ ョ ン キ ー の 表 
示 エ リア に な り ま す 。 く < スク ロー ル 開 始 行 > の と りう る 範囲 は 0 か ら 31 ま で 、 く < スク ロー 
ル 行 数 > の と りう る 範囲 は 1 か ら 32 ま で で す 。 < スクロール 開始 行 > と < く スクロール 行 
数 > と < く ファ ンク ショ ン キ ー 表 示 > の 値 を すべ て 加え た 値 は 最大 322 ま で と な り ま す 。 た 
だ し 、 < スク ロー ル 開 始 行 ? で 31 を 指定 し た り 、 あ る い は < スク ロー ル 行 数 > で 32 を 指定 
し た 場合 は 、 く ファ ンク ショ ン キ ー 表 示 > は 0 に 設定 し て くだ さい 。 

表示 画面 サイ ズ が 256X256 の テキ スト 画面 の 場合 は 、 常時 < ファ ンク ショ ン キ ー 表 示 > 
は 0 に 設定 し 、 く スク ロー ル 開 始 行 ? は 0 か ら 15 ま で 、 < スクロール 行 数 > は 1 か ら 16 ま 
で の 範囲 の 値 を と る こと が で きま す 。 く < スク ロー ル 開 始 行 > と く ス クロ ー ル 行 数 > と く フ 
ァ ン クシ ョ ン キ ー 表 示 > の 値 を すべ て 加え た 値 は 最大 16 ま で と な り ま す 。 

な お 、 く < ファ ンク ショ ン キ ー 表 示 > は 0 な ら フ ァ ン クシ ョ ン キ ー 表 示 OFF、1 な ら フ ァ 
ンク ショ ン キ ー 表 示 ON を 意味 し ます 。 

console 命 令 を 実行 する と 、 実行 後 、 カ ー ソ ル は 表示 画面 の 左上 に 移動 し 、 ま た width 
命令 を 実行 する と 、 console 0,31, 1 に 再 設定 され ます 。 な お 、 console ,,0 は ファ 
ンク ショ ン キ ー の み 表 示 OFF と し 、console ,,1 は ファ ンク ショ ン キ ー の み 表 示 ON 
に し ます 。 こ の 場合 スク ロー ル エ リア は 変化 し ませ ん 。 


19 /#* console sample 

29 int ai,bi,oi。di。e1。f ュ 

39 sereen 2,.9,1,1 

19 vpage(1) 

59 1ocate 9,3 

60 jprint "表示 画面 サイ ズ は 768*512 ( 横 96 桁 * 縦 32 行 ) で す " 
79 chile ai<>-1 


89 input "スク ロー ル 開 始 行 を 9 か ら 31 の 範囲 で 入力 し て くだ さい ---> bi"jbi 

99 if bi<9 or bi>31 then print "bi の 値 を 設定 し 直し て くだ さい ":continue 

190 input "スク ロー ル 行 数 を 1 か ら 32 の 範囲 で 入力 し て くだ さい ---> Ci"io1 

119 if ci<] or ci>32 or bi+oi>32 then print "bi,ci の 値 を 設定 し 直し て くだ さ 
い "icontinue 

120 if bi+oi=32 then print "ファ ンク ショ ン キ ー は 表示 で きま せ ん ":di= の 9:break 

139 while ei<>-1 

140 input "ファ ンク ショ ン キ ー を 表示 する 場合 は 1 を 表示 し な い 場 合 は 9 を 入 
カレ し て くだ さい ---> di"idi 

159 if di<9 or di>1 then print "di の 値 を 設定 し 直し て くだ さい ":oontinue 

160 e1=-1 

1709 endwhile 

189 a1=-1 

199 endwhile 

299 pause( ) 

219 cls 


97 


第 4 章 リフ ァ レ ンス 


220 pFnE、 "eonsole "iD43 7 sens "PsdT:T を 設定 ます " 
239 console bi,oi,di 

249 pause( ) 

259 cl1s 

269 for ai= の to 599 

2709 print "X6809099 " "TX68999HD AS 
289 next 

299 pause( ) 

399 oonsole 9,31,1 

319 cols 

329 end 

339 func pause( ) 

349 for fi=9 to 199909 

359 next 

36 の endfuno 


8 


機能 | BREAK | キー( ま た は [CTRL|+| C | キー) 入 力 、 また は stop 命 令 に よっ て 停止 し 
た プロ グラ ム の 実行 を 再開 し ます 。 実行 停止 中 に list 命 令 や print 命 令 な ど を 実行 する 
こと は で きま す が 、 プ ログ ラム その も の の 変更 を 行っ た と き は 、cont 命 令 に よる 実行 
の 再開 は で きま せん 。 


2 StOD 
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CONTINUE ステ ー ト メ 


書 式 continue 


機 能 for、repeat、while 文 の 次 の ルー プ を 強制 的 に 開始 し ます 。 


2 break 


用 例 10 /* continue sample 
2 int ai 


39 print "繰り 返し で 、continue を 使用 し な い 場 合 " 
49 for ai=9 to 5 


509 if ai=2 then print "XY68909 ら 

69 DS も Ja ニー リ 9 sg)s 

709 print "persona] workstation X68990 由 
80 next 


3 の print "同じ 繰り 返し で 、continue を 使用 し た 場合 " 
199 for ai=9 to 5 


110 if ai=2 then print "X68999 "iContinue 
120 0 和英 

130 print "personal1 workstation X68009 に 
140 next 

159 ai=-1 


169 print "0 か ら 29 ま で の 偶数 値 、 奇 数 値 を 表示 し ます !" 
179 while ai<>29 

189 a1=ai+1 

199 1f (ai mod 2)=9 then print ai::continue 

200 Print ai 

219 endwhile 

229 end 
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CONTRAST GR 


書 式 contrast (ch) 
char 
void 

機 能 画面 全体 の コン トラ スト を 指定 し ます 。 


ch ……… 0 (文字 や グラ フィ ッ ク 、 スプ ライ ト の 表示 が 見 えな い ) 一 15 (文字 や 
グラ フィ ッ ク 、 ス プラ イト の 表示 が よく 見 える ) 


1 の /* oontrast sample 
96 tnt etea el 
3 の 9 soreen 1,3,1,1 
49 vpage(1) 
5 の 9 symbo1(299,209, "SHARP",2,2,.2,rgb(31,9,09)+1,9) 
6 の 9 for ai= の to 15 


709 bi=15-ai 

89 contrast( bi ) 

99 for oi= の to 1099 
10909 next 

119 next 

129 symbo1(199,199,"X689090 "3.3,2,rgb(0,0,31 )+1,6) 
139 for ai= の to 15 

1409 contrast(ai ) 

150 for bi=9 to 10099 
160 next 

179 next 

189 end 


COS 了 準 関数 


CoOS(n) 


float 


戻り 値 float 


数 値 n( ラ ジア ン ) の 余弦 (コサイン ) を 返し ます 。 


用 例 19 /* cos sample 
2 の 9 int ai, bi ,oi ,d 
3 の 9 float af 
49 soreen 1,3,1,1 
59 vpage(1) 
69 line(9,255,511,.255,65535 ,&HFFEF ) 
7 の for ai=1 to 3 


89 for bi=@ to 511 

99 af=(2*pi( )*bi ) /512*ai 
199 c1=255-cos(af ) *299 
110 di=rnd( )*65535 

129 pset(bi ,ci ,di ) 

139 nex も 

149 next 

159 end 
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CRT 


IMAGE 


落 | | 油 | | | 唱 
吉 | | 宙 | | 藻 | | 員 


crt(cd) 

char 

void 

テレ ビ ・ ビ デオ 画面 と コン ピュ ー タ 画面 を 切り 換え ます 。 


ed tt… 切り 換え コー ド (0 一 3) 
コー ド cd の 値 と 意味 は 次 の と お り で す 。 

0 ニテ レビ ・ ビ デオ 画面 の 映像 を 表示 

1 ニコ ンピュータ 画面 を 表示 

2 ニテ レビ ・ ビ デオ 映像 の コン トラ スト を 下げ で て スー パー イ ン ポ ー ズ 表示 

3 ニテ レビ ・ ビ デオ 映像 の コン トラ スト を 通常 に し て スー パー イン ボー ズ 表 示 
実行 前 に screen 命 令 で あら か じ め 表 示 画 面 サイ ズ を 256 メ 256 ま た は 、 512X512 に 、 デ 
ィ ス プレ イ 解 像 度 を low (標準 解像度 ) に 設定 し ます 。 カ ラー イメ ー ジ ユニ ッ ト の テロ 
ッ ク パパ 機能 を 使っ て 、 コ ンピュータ 画像 や スー パー イン ボー スズ 画像 を ビデ オ に 録画 する 
場合 、crt(3) に あら か じ め 設 定 し て くだ さい 。 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 が 必要 で す 。 
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書 式 csrln 


imt 


テキ スト 画面 の 現在 の カー ソル の y 上 座標 を 返し ます 。 代 入 す る こと は で きま せん 。 


用 例 19 /* osr1]in sample 
39 print "X68999 
49 print osr1in 


59 end 


戻り 値 str 
現在 の 日 付 を 文字 列 と し て 返し ます 。 代 入 す る こと に よっ て 日 付 を 設定 で きま す 。 


19 /* date$ sample 
20 


str as,bs 
39 as=date$ 
49 print as 
59 bs=as 
69 date$=bs 
7 の print date$ 
89 end 


Str 


19 /* day$ sample 
29 str as 

39 as=day$ 

49 print as 

50 enid 


現在 の 曜日 を 文字 列 と し て 返し ます 。 代 入 す る こと は で きま せん 。 


DELETE 2 


delete < 行 番号 の 範囲 > 


機 能 指定 され た プロ グラ ム 行 を 削除 し ます 。 
行 番号 の 指定 方 法 に よっ て 、 さ ま ざ ま な 形 の 削除 が 行え ます 。 


delete 10 行 番号 10 の 行 を 削除 し ます 。 
delete 一 100 プロ グラ ム の 先頭 か ら 行 番号 100 ま で の 行 を 削除 し ます 。 
delete 200 一 行 番号 200 か ら プ ログ ラム の 最後 まで の 行 を 削除 し ます 。 


2 list、new、renum 
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リフ ァ レ ンス 


スベ デー トメ シト 


dm 【< 型 宣言 >) < 変数 名 >(< 添 字 の 最大 値 >〔, < 添字 の 最大 値 >. . . ]) 【[ く 文字 バッ 
ファ の サイ ズ >]〕〔= テ (< 代入 定 数 式 デ ー タ リス ト >}〕 〔, < 変数 名 >. . . ] 


配列 変数 を 使う こと を 宣言 し ます 。 

dim 文 中 で 代入 する デー タ は 、={ } で 囲 め ば 複数 行 に 分 け て 記述 で きま す 。 た だ し 、 
複数 行 に わけ て 記述 し た 場合 は 、 そ の プロ グラ ム を save@ 命 令 で セー プ ブ で き て も 、 
1oad@ 命 令 で ロー ド で きま せん の で 注意 し て くだ さい 。 

同じ デー タ 型 の 配列 は カン マ で 区 切れ ば 後に 続け て 1 行 に 入力 可能 な 文字 数 の 範囲 内 
で 宣言 で きま す 。 な お 、< 型 定 言 > を 省略 する と 、int 型 の 配列 と し て 扱わ れ ま す 。 
設定 で きる 添字 の 最小 値 は 0 、 最 大 値 は フリ ー エ リア が 許す 範囲 で す 。 

< 文字 バッ ファ の サイ ズ > は 1 一 255 の 範囲 で 設定 で き 、str 型 の 配列 の 1 要素 の と りえ 
る 文字 列 の 最大 の 長き を 指定 し ます 。 省 略し た 場合 は 32 文 字 と な り ます 。 

原則 と し て 、 配 列 変数 の 宜 言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 同 じ 名 前 
の 配列 を 再 宣言 する こと は で きま せん 。 


/* dim sample 


int ai,bi 
dim int aia(2)={15,-845,55555555} 
dim int bia(1,1)={465,5953, 
-536 ,222} 
dim char aoa(2,2,2) 
dim float afa(5) 
dim str asa(1)={"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa', 
"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa')} 
dim str bsa(1)[59]={"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" , 
"asdsadafasd"} 

for ai= の 9 to 2 

DPt も ata( "sa 8)= リ aa(caa ) 
next 
for ai= の to 1 

for bi=9 to 1 

in も "ba( saas sb ) う ="'Sb&ta(at 。b は ) 

next 
next 
print "asa(9)="jasa(0) 
print "bsa(9)=":bsa(09) 
end 
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DSKF 


書 式 


標準 関数 
dskf (d) 
char 
int 


指定 され た ドラ イブ d の 空き ディ スク 容量 を 返し ます 。 エ ラー の 場合 は ー 1 を 返し ま 
4 


dd …… ド ドー 0 カレ ン トド ライ ブ 
1 ドラ イグ 人 
み ドラ イブ BB 


10 /* dskf sample 
29 int ai 

39 ai=dskf(2) 

49 print ai 

50 end 
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ECVI 標準 関数 


ecvt(Ei1.i2.3) 


float(f), int G1) , int 型 変数 名 (i2.13) 
戻り 値 str 


機 能 浮動 小数 値 f を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 文字 列 と し て 返さ れる の は 数 


値 の み で す 。 
7 文字 列 に 変換 し た い 浮 動 小数 値 
1 Zseote 文字 列 の 桁 数 
Ke 小数 点 の 位置 を 返し ます 。 正 の 場合 は 、 小数 点 は 1 2 十 1 の 位置 に あ 
り ま す 。 0 また は 負 の 場合 は 、 小 数 点 は 12 一 1 の 位置 に あり ます 。 
本 符号 を 表わす 値 を 返し ます 。 正 の 場合 は 0 、 負 の 場合 は 1 に な り ま 
あ 


atof、fcvt、gcvt 


呈 
19 /* ecovt sample 
20 


放電 記 DE 
39 fl]oat af,bf,of 
49 af=25999909090990# 
59 bf=-2.6546681E+205# 
69 cf=-5.2365426E-918# 
70 print str$(af ) 
89 print eovt(af,29,ai,bi ) ,ai ,bi 
99 print str$(bf ) 
109 print ecovt( bf ,29,ai , bi ) , ai , bi 
119 print str$(cf ) 
129 print ecvt(cf,20,ai ,bi ) , ai , bi 
139 end 
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end 


プロ グラ ム を 終了 し ます 。 プ ログ ラム 内 に いく つ 置 いて も か まい ませ ん 。 た だ し 、 最 
初 に 実行 し た end 命 令 より あと の 命令 文 は 実行 きれ ませ ん 。 

19 /* end sample 

2 の test( ) 

39 end 

49 func test( ) 


59 print "X68990 
69 endfuno 


int 


error off の モー ド の 場合 の み 有 効 で 、 外 部 関数 で エラ ー が 発生 し て いる か どう か 
を 知 り た いと き に 使い ます 。 代 入 す る こと は で きま せん 。 戻り 値 と し て は 次 の よ 
う な 値 を 返し ます 。 


人 0 隔 eKGS2eezete エラ ー が 発生 し て いな いこ と を 示し ます 。 
正 の 整数 ………… 外部 関数 上 で エラ ー が 発生 し て いる こと を 示 し ます 。 
負 の 整数 ………… シス テム 上 で エラ ー が 発生 し て いる こと を 示し ます 。 
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ERROR _ ON/OFF ステ ー ト メン ト 


書 式 error on また は error off 


機能 error on に する と 、 外 部 関数 で エラ ー が 発生 し た と き に エラ ー メ ッ セ ー ジ を 表示 し 
て 実行 を 停止 する モー ド に な り ま す 。error off に する と 外部 関数 で エラ ー が 発生 し 
て も エラ ー メ ッ セ ー ジ を 表示 せ ず 、 次 の ステ ー ト メン ト に 実行 が 進め られ ます 。run 命 
令 実行 直後 は error on の モー ド に な っ て いま す 。 な お 、error off の モー ド が 有効 な 
と き は 、 プ ログ ラム で error off を 実行 し て いる 間 の み で す 。 プ ログ ラム が 終了 し 
て 、"Ok” が 表示 され る と error on の モー ド に な り ま す 。 


用 例 19 /* error on/off sample 
29 


int ai 
39 cls 
49 print "error ofFff モ ー ド に し ます " 
59 error off 
69 line(9,9,1111111199,199,8888888 ) 
79 print "X6809090 
89 for ai= の to 19990 
99 next 
199 cls 
119 print "error on モー ド に し ます " 
129 error on 
139 line(9,9,1111111199,199,8888888 ) 
149 print "X6809090 


159 end 
EXIT() 
書 式 exit( ) 
機 能 | 現在 オー プン きれ て いる ファ イル を クロ ー ズ する な どの 処理 を し た 後 、 親 プロ セス に 
戻り ます 。 
用 例 1 /* exit() sample 
29 print "X68999 " 
39 exit( ) 
49 end 
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EX ロ 準 関数 


exp 
om 
float 


機能 自然 対数 の 底 "e'" の n 乗 を 返し ます 。 


用 例 19 /* exp sample 
29 float af,bf 
39 af=5.3# 
40 bf=-2.8# 
59 print exp(af ) 
69 print exp(Dbf ) 
79 end 


FCLOSE 準 関数 


fclose (fp) 
it 
int 


機 能 fopen 関 数 に よっ て オー プン され た ファ イル を クロ ー ズ し ます 。 クロ ー ズ し た 場合 、 戻 
り 値 と し て 0 を 返し ます 。 エ ラー の 場合 は ー 1 を 返し ます 。 


fp ……… ファ イル 番号 


| 19 /* fo]ose sample 

用 例 29 int ai,bi 
39 str as 
49 1input "ファ イル 名 を 入力 し て くだ さい --->? リ jas 
59 ai=fopen(as, "co") 
69 bi=fopen(as,"r") 
79 print "指定 ファ イル が クロ ー ズ され ます " 
89 fclose(ai ) 
99 foclose( bi ) 
109 end 
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FCLOSEALL 標準 関数 


fcloseall( ) 
int 
機 能 オー プン 中 の すべ て の ファ イル を クロ ー ズ し ます 。 戻り 値 と し て 、 ク ロー ズ し た ファ 
イル の 個数 を 返し ます 。 エ ラー の 場合 は - 1 を 返し ます 。 


19 /* folosea11() sample 
29 int ai,bi,oi 
39 str as 
49 1inpu も t "ファ イル 名 を 入力 し て くだ さ い --->?":as 
59 ai=fopen(as, "oc" ) 
69 bi=fopen(as,"r") 
79 print "指定 ファ イル が クロ ー ズ され ます " 
89 ci=folosea11() 
90 prihnt “クロー ズ さ た ファ イル は "5oi:" 個 で す " 
199 end 


FCVT 標準 関数 


| 書 式 | fcvtG.ii.2.38) 


数 float(f) ,int G1) ,int 型 変数 名 (12.13) 
戻り 値 Str 


機 能 浮動 小数 値 f を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 文字 列 と し て 返さ れる の は 数 


値 の み で す 。 
ee 文字 列 に 変換 し た い 浮 動 小数 値 
1 ti 文字 列 の 小数 点 以 下 の 桁 数 
20 et 小数 点 の 位置 を 返し ます 。 正 の 場合 は 、 小数 点 は 12 十 1 の 位置 に あ 
り ま す 。 0 また は 負 の 場合 は 、 小 数 点 は 12 一 1 の 位置 に あり ます 。 
8 oe 符号 を 表わす 値 を 返し ます 。 正 の 場合 は 0 、 負 の 場合 は 1 に な り ま 
す 。 


ピ 】 atof、ecvt、gcvt 


19 /* fovt sample 
2 int ai,bi 

39 f]oat af,bf,cf 

40 af=259099990090990# 

5 の bf=-2.6546681E+205# 

69 of=-5.2365426E-918# 

79 print str$(af ) 

89 print fovt(af,29,ai,bi ) ,ai,bi 
99 print str$(DF ) 
109 print fcvt(bf,29,ai,bi ) ,ai,bi 
119 print str$(cf ) 

129 print fovt(of,29,ai,bi ) ,ai ,bi 
139 end 


110 


FDELETE 


fdelete (fn) 
引 数 


str 
戻り 値 int 
機 能 ファ イル fm を 削除 し ます 。 削 除 で きた 場合 、 戻 り 値 と し て 0 を 返し ます 。 エ ラー の 場 


合 は 一 1 を 返し ます 。 


fn ………… ファ イル 名 
用 例 19 /* fdelete sample 
29 int ai 
39 str as 
49 cls 


59 1input "削除 し た い フ ァイル 名 を 入力 し て くだ さい --->?"ias 
69 print "ファ イル ("+as+") を 削除 し ます " 

79 ai=fdelete(as ) 

89 if ai<>9 then print "ファ イル の 削除 が で きま せん " 

9 の 9 print "ファ イル の 削除 が で きま し た " 


1909 end 
EEGE 準 関数 


feof (fp) 

L 引 数 | mi 

int 

指定 され た ファ イル の 終了 チェ ッ ク を 行い ます 。 フ ァイル が 終わ りな ら 一 1 、 終 わっ 
て いな けれ ば 0 を 返し ます 。 エ ラー の 場合 も 一 1 を 返し ます 。 


fp 人 ISIa25 ファ イル 番号 
19 /* feof sample 
2 の int ai 
39 str as 


49 dim int aia(5) ,bia(9) 

5 の 1inpu も t " プ ァ イル 名 を 入力 し て くだ さい --->?" jas 
69 as="a:\"+as 

79 ai=fopen(as, "oc") 

809 fnrite(aia,6,ai ) 

99 fclose(ai ) 

1969 ai=fopen(as, "rw") 


119 while feof(ai )<>-1 
1209 fwrite(bia,1,ai ) 
130 print feof(ai ) 
149 endwhile 

159 fclose(ai ) 

169 end 
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FGETC 標準 関数 


書 式 fgetc(fp) 
int 
int 


機 能 指定 され た ファ イル か ら 1 文字 ずつ 読み 込み ます 。 戻 り 値 と し て 、 読 み 込ん だ 文字 の 
こら 


キャ ラク タコ ー ド を 返し ます 。 フ ァイル の 最後 まで 読み 込ん だ 場合 や 、 エ ラー の 場合 
は 一 1 を 返し ます 。 
fp aa ファ イル 番号 


ファ イル 内 の デー タ ポ イン タ の 位置 は 、 1 バイト ずつ 移動 し て いき ます 。 フ ァイル 内 
を ラン ダム アク セス し て デー タ ボ ポイ ンタ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 


fputc 


=* 
19 /* fgeto sample 
29 


ま 生 も きも 。 も 1 
39 char ac 
4 の str as="persona1 eworkstation X68900 骨 
59 dim char aca(31) ,boa(31) 
69 1input "ファ イル 名 を 入力 し て くだ さ い --->?"jbs 
7 の for ai= の 9 to 31 


8 の aca(ai)=aso(mid$(as,ai+1,1 ) ) 
99 next 

199 ai=fopen(bs,"c") 

119 for bi= の to 31 

120 ac=aoa( bi ) 

139 fputo(ao,ai ) 

140 next 


159 fclose(ai ) 
169 ai=fopen(bs, "rw" ) 


179 bi=9 

1809 while feof(ai ) く >-1 
199 bca(bi ) =fgeto(ai ) 
290 bi=bi+1 

219 endwhile 


229 foclose(ai ) 

230 print "aoa=" ぉ 

24 の 9 for ai= の to 31 

259 print chr$(aca(ai ) ) : 
269 next 

279 print:print "boa=": 

28 の for ai= の to 31 

290 print chr$(boa(ai ) ) : 
3 の 9 next 

319 end 
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FILES 還 


書 式 人 再 es 「" く ドラ イブ 名 2 く < ファ イル 名?"〕 


| 省 只 形 | (fi 


指定 され た ドラ イブ の ファ イル の 一 覧 を 表示 し ます 。 
ドラ イブ 名 、 フ ァイル 名 が 省略 され た 場合 、 カ レン トド ライ ブ の カレ ント ディ レク トリ 
の すべ て の ファ イル 名 を 画面 に 表示 し ます 。 ド ライ ブ 名 の み 指 定 さ れ た 場合 は 指定 さ 
れ た ドラ イブ の カレ ント ディ レク トリ の すべ て の ファ イル 名 を 表示 し ます 。 ド ライ ブ 
名 と ファ イル 名 が 指定 され た 場合 に は 、 指 定 さ れ た ファ イル の 情報 が 表示 され ます 。 
ワイ ルド カー ド も 使用 で きま す 。 
< ドラ イブ 名 >、 < ファ イル 名 > の 詳細 に つい て は 、「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 
を 参照 し て くだ さい 。 
lfiles 命 令 で は 出力 先 が プ リン タ と な り ま す 。 


files "aa:\*,.* ネ " 
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用 例 


fill(x1 y1,x2,y2,p) 


int 


Yoid 


グラ フィ ッ ク 画 面 上 に 中 を 塗り つぶ し た ボッ クス (四角 形 ) を 描き ます 。 


始点 X 座 標 
始点 Y 座 標 
終点 X 座 標 
終点 Y 座 標 
パレ ッ ト コ ー ド ( 色 ) 


、yY1、x2、y2 は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 ク リッ ピン グ 
エリ ア に つい て は window 関 数 で 指定 され た 範 陸 に な り ま す 。 また 、 パ マレット コー ド p 
は 0 か ら 65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 


サイ ズ お よび 色 モ ー ド に より ます 。 


/* fi1]1] sample 

各 交 人 , 人 冊 DS GO 名 党 。 下 や 
screen 1,3,1,1 
vpage(1 ) 

for ai=9 to 209 


bi=rand() mod 512 
ci=rand( ) mod 512 
di=rand() mod 512 
ei=rand( ) mod 512 
fi=rnd()*65535 


fTL1T(DS jeT Te さき ) 
nex も 
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F IX 標準 関数 


書 式 fix (f) 


float 


| 引数 ' 
do 


機 能 浮動 小数 値 《 の 小数 点 以下 を 切り す て た 値 を 返し ます 。 


| 19 /* fi sample 

用 例 29 float af=2.63# 
30 floa も . bf=ー5 .。6# 
49 float cf=51 
59 print fix(af ) 
69 print fix(DbFf ) 
70 Dj も PF せ な (で で ) 
89 end 


FLOAT スミ メート メン ト 


1 


書 式 float < 変数 名 >〔 王 < 定数 式 >]〔, .… . 


変数 を 実数 (float) 型 と し て 宣言 し ます 。 同 時 に 値 を 代入 する こと も で きま す 。 
原則 と し て 、 変 数 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 ま た 、 同 じ 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 


し 2 char、int、str 


用 例 10 /* float sample 
29 float af=25999999999900# 
39 float bf=-5.68759412E+200# 
40 float of=1#/3,df=-3.254# 
5 print af 
69 print bf 
7 の print of,dF 
89 end 
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FOPEN 標準 関数 


fopen (fnmd) 
Str 
int 


指定 され た ファ イル を 、 モ ー ド を 決め て オー プン し ます 。 戻り 値 と し て 、 フ ァイル 番 
号 を 返し ます 。 エ ラー の 場合 は ー 1 を 返し ます 。 


0 


r = すでに 存在 し て いる ファ イル を 読み 込み 用 (リー ド ) と し て オー プ 
ン す る 。 フ ァイル が な い 場 合 は エラ ー。 

"Ww すでに 存在 し て いる ファ イル を 書き 込み 用 (ライ ト ) と し て オー プ 
ン す る 。 フ ァイル が な い 場 合 は エラ ー。 

"rw 三 すでに 存在 し て いる ファ イル を 読み 書き 両用 (リー ドラ イト) と 
し て オー プン する 。 フ ァイル が な い 場 合 は エラ ー。 

"c” 三 新規 ファ イル を 読み 書き 両用 (リー ド ノ プラ イト ) と し て オー プン す 
る 。 同 一 ファ イル が 、 す で に 存在 し て いる 場合 は 、 そ の ファ イル を 
消去 し て か ら 、 読 み 書き 両用 (リー ド プ ライ ト ) と し て 新しく オー プ 
ン す る 。 

特に 、 既 存 フ ァイル の デー タ に 対し て 、 追 加 、 修 正す る 場合 は 、"W"、"rw" モー ド を 

使用 し ます 。 

オー プン され た ば か り の ファ イル で は 、. フ ァイル 内 の デー タ ボ ポイ ンタ の 位置 は 、 フ ァ 

イル の 先頭 に あり ます 。 デ ー タ ポイ ンタ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 


1 の /* fopen sample 

29 int ai,bi 

39 str as 

49 dim int aia(99),bia(199) ,cia( の ) 
650 1inpu も キジ ァイル 名 を 炭 力 し て くだ さい ーー-??"jag 
69 for ai= の to 99 

79 aia(ai) =&H12345678 

89 next 

99 /* oreate mode 

199 ai=fopen(as, "oc" ) 
119 fnrite(aia,199,ai ) 
129 fclose(ai ) 
139 /#* read/write mode 

149 ai=fopen(as, "rw') 


150 /* update */ 

160 fseek(ai,49,09) 

1709 cia( の )=&H87654321 

189 bi=fwrite(cia,1,a1 ) 

199 if bi<= の then print "update error!" 
299 /* append */ 

210 fseek(ai, の 9,2) 

229 cia(9)=&H87654321 

2309 bi=fQrite(cia,1,a1i ) 
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249 if bi<= の then print "append error!" 


259 /* read *#/ 

269 fseek(ai,9,9) 

279 bi=fread(bia,1091,ai ) 

280 if bi< く = の then print "no data(r/) !" 
290 Print bi 


399 fol]ose(ai ) 
319 /* oreate mode 
329 ai=fopen(as,"c") 


330 bi=fread(bia,191,ai ) 

340 if bi<= の then print "no data(c) !" 
359 Print bi 

369 fclose(ai ) 

379 end 


FOR<-CNEXT ステ ー ト メン ト 


for <jint 型 変数 名 > 三 < 初期 値 > to < 最終 値 > 
く < レーブ の 内 容 > 


next 


for か ら next ま で の 間 で 指定 され た ソレ ー プ の 内 容 > を 、 指 定 さ れ た 回 数 だ け 繰 り 返 し 
(レーブ) 注 す 。 

増分 は 1 で す 。 

< 初期 値 > が < 最終 値 > と 等 し い 場 合 は 、 1 回 だ け の レー プ の 内 容 > が 実行 され ます 。 ま 
た 、 く < 初期 値 > が く 最終 値 > よ り 大 きい 場合 は 、 ぐ レー プ の 内 容 > は 一 度 も 実行 され ませ 
6 


1 の /* for next sample 
2 の 9 int ai,」bi 


39 cols 

4 の inpuot "ステ ッ プ を 入力 し て くだ さい --->"iai 
59 print 

69 for bi= の to 19 

79 C1=bi*a ュ /* step 

89 print bi,oi 

9 の 9 next 

109 end 
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EPUHC 標準 関数 


書 式 


切 | | 測 | | 
重 | || | 隊 


ユ 


fputc(ch,fp) 
char (ch) ,int (fp) 
int 


指定 され た ファ イル に 1 文字 ずつ 書き 込み ます 。 戻り 値 と し て 、 書 き 込ん だ 文字 の キ 
ャ ラク タコ ー ド ch を 返し ます 。 フ ァイル へ の 書き 込み が PR た 場合 や 、 エ ラー 
の 場合 は 、 一 1 を 返し ます 。 


6 族 eowws 書き こむ キャ ラク タコ ー ド 

fp ……… ファ イル 番号 
キャ ラク タコ ー ド ch は 、0 か ら 255 の 値 を と り ま す 。 ファ イル 内 の デー タ ポ イン タ の 位 
置 は 、 1 バイ ト ず つ 移 動 し て いき ます 。 フ ァイル 内 を ラン ダム アク セス し て デー タ ポ 
イン タ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 


fgetc 


19 /#* fputo sample 

2 1m も ai。b1 

3 の char ac 

49 str as='"persona1 workstation ヾ Y680909 ",bs 
59 dim char aoa(31) 

69. 1inpub "ラウ ァ イル 名 を 入力 し て ぐだ さい ハー--2? “55g 
7 の for ai= の to 31 


809 aca(ai)=asSc(mid$(as,a1+1,1 ) ) 
99 next 

169 ai=fopen(bs,"c") 

119 for bi= の to 31 

120 ac=aca( bi ) 

1309 fputoc(aoc,ai ) 

1409 next 

159 fcl]ose(ai ) 

169 end 
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FREAD 本 準 関数 


fread (na,n,fD) 

数 値 型 一 次 元 配列 名 (na) ,int (nfp) 

m 

指定 され た ファ イル か ら 、 指 定 さ れ た 要素 数 分 n を 指定 され た 配列 na に 読み 込み ます 。 
戻り 値 と し て 、 実 際 に 読み 込ん だ 要素 数 を 返し ます 。 エ ラー の 場合 は ー 1 を 返し ます 。 


na … の in 数 値 型 一 次 元 配 列 名 (int 型 また は 、 char 型 また は 、 float 型 の 一 次 元 
配列 名 ) 

ooecosoocoad 要素 数 (1 バイ ト (char 型 ) ま た は 4 バイ ト (int 型 ) ま た は 8 バイ ト 
(float 型 ) 単 位 ) 

御 Noossa ファ イル 番号 


ファ イル 内 の デー タ ポ イン タ の 位置 は 、 指 定 さ れ た 配列 na の デー タ 型 に 対応 し て 、 
char 型 で あれ ば 1 バイ ト ず つ 、int 型 で も れ ば 4 バイト ずつ 、float 型 で あれ ば 8 バイ ト 
ずつ 移動 し て いき ます 。 フ ァイル 内 を ラン ダム アク セス し て デー タ ポ イン タ を 移動 す 
る 場合 は 、fseek 関 数 を 使用 し ます 。 


fwrite 


っ 


19 /* fread sample 

2 の int ai,bi,oi 

39 char ac,bo 

49 float af 

50 str as 

6 の 9 dim int aia(3) ,bia(3) 

7 の dim char aoca(15) ,boca(15) 
89 dim float afa(1 ) , bfa(1 ) 


190 1input "ファ イル 名 を 入力 し て くだ さい --->?"ias 
119 /* write file 
129 ai=Ffopen(as, "oc" ) 


139 repeat 

149 inpu も t "デー タ の 型 タ イプ を 入力 し て くだ さい ( int = 9 , char = 1 , float 
)---> "jac 

159 if ac=09 then { 

160 for b1= 償 も o 3 

179 input "int 型 デー タ を 入力 し て くだ さ い --->"ioi 

1809 aia( bi ) =oi 

190 ne ヾ t 

200 fwrite(aia,4,ai ) } 

219 if ac=1 then { 

220 まお Q が 取 ま = も @ 15 

230 input "char 型 デー タ を 入力 し て くだ さ い --->"ibc 

2409 aca( bi ) =bc 

259 next 

2609 fnrite(aoa,16,ai ) } 

279 if ao=2 then { 

280 for bi= の to 1 

290 input "float 型 デー タ を 入力 し て くだ さい --->"iaf 

3099 afa(bi ) =af 
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next 
fwrite(afa,2,ai ) ] 
unt1] ao< く =2 
fclose(ai ) 
cl1s 
/* read file 
ai=fopen(as, "rw') 
print "書き 込ん だ ファ イル ("+as+") の 内 容 を 表示 し ます ":print 
if ao= の @ then 
fread(bia,4,ai ) 
for bi= の 9 to 3 
print "デー タ の ポイ ンタ の 位置 ("jifseek(ai,bi*4,9)j") 
print bia( bi ) 
next} 
jif ac=1 theri { 
fread(boa,16,ai ) 
ffO* も = も og 15 
print "デー タ の ボイン タ の 位置 (":fseek(ai,bi,9)j") = 
print boa( bi ) 
nevtj 
jf ac=2 then { 
fread(bfa,2,ai ) 
fiom も bi= の も o 1 
print "デー タ の ボイン タ の 位置 (':fseek(ai,bi*8.9)j") 
print bfa(bi ) 
next} 
fclose(ai ) 
end 
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FREADS 標準 関数 


港 | | 油 | | 避 | | 較 
吉 | | 画 | 畑 | | 


freads(st,fp) 
str 型 変数 名 (st) ,int (fp) 
int 


卓 定 され た ファ イル か ら 1 行 を str 型 変数 st に 読み 込み ます 。 戻り 値 と し て 、 MI 
か ら 読 み 込ん だ 文字 数 を 返し ます 。 フ ァイル の 最後 まで 読み 込ん だ 場合 や 、、 す で に 
み 込 ん で いる 場合 ある い は エラ ー の 場合 は 、 一 1 を 返し ます 。 


No0og 四 読み 込ん が 文字 列 を 格納 する str 型 変数 名 

地 ヾ ao ファ イル 番号 
1 行 の 読み 込み を 終了 する の は 、 改行 (CR (&HOD)、LF (を HO0A) ) が 現われ た と き 
か 、st の 文字 バッ ファ が いっ ぱい に な っ た と き で す 。 フ ァイル の 読み 込み を 終了 する の 
は 、 フ ァイル が 終わ っ た 時 か 、 フ ァイル 終了 コー ド (&H1A) が 現われ た と き で す 。 
な お 、st の 文字 バッ ファ に は 、 改 行 お よび ファ イル 終了 コー ド は 書き 込ま れ ま せん 。 
ファ イル 内 を ラン ダム アク セス し て デー タ ポ イン タ を 移動 する 場合 は 、fseek 関 数 を 
使用 し ます 。 


2 fwrites 
用 例 
19 /* freads sample 
2 エエ n も ai 
39 str as,bs[2551 
49 cls 
59 1input "ファ イル 名 を 入力 し て くだ さい --->?"jas 
69 /* nrite file 
79 ai=fopen(as,"o') 
89 print "書き 込む ファ イル 名 は 、"+as+" で す " 
99 while bs<>ohr$(26 ) 
199 に に 2 
119 print "終了 する 場合 は 、 en を 入力 じ し て て 夫人 き W17 
120 1input 「 ず 中 る 定 基 まえ し で く ぐ だ い ー ニ ーー bs 
139 /* cr = chr$(13) , 1f = chr$(109) 
149 bs=bs+chr$(13)+ohr$(10) 
159 /* ctrl + 2 = chr$(26) 
169 if bs="end"+chr$(13)+chr$(19) then print "ファ イル を クロ ー ズ し ます ":bs 
=chr$(26 ) 
179 fwrites(bs,a1 ) 
189 endhile 
199 fclose(ai ) 
299 cls 
219 for ai= の to 19999:nex も t 
229 /* read file 
239 print "書き 込ま れ た ファ イル ("+as+") の 内 容 を 表示 し ます " 
240 bs="" 
259 ai=fopen(as,"rw") 
269 repeat 
270 print bs 
2809 freads(bs,ai ) 
299 unti1 feof(ai ) =- 
399 folose(ai ) 
319 end 
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free 
int 
現在 の メモ リ 上 の フリ ー エ リア を 返し ます 。 代 入 す る こと は で きま せん 。 


1 /* free samp1le 
2 print free 
39 end 


FRENAME 準 関数 


frename (fn1, fn2) 
Str 
int 


ァイル 名 fn1l の ファ イル を ファ イル 名 fnm2 に 変更 し ます 。 変更 で きた 場合 、 戻 り 値 と 
し て 0 を 返し ます 。 エ ラー の 場合 は 1 を 返し ます 。 


fn1 ……… 変 更 し た い フ ァイル 名 
fn2 ………… 変更 後 の フ ァイル 名 
1 の 9 /* frename sample 
2 int ai 
39 str as,bs 
49 cls 
50 1input "変更 し た い フ ァイル 名 を 入力 し て くだ さい --->2"ias 
60 11nput "新しく の ける る ファイ 江 者 を 大 力 し て くだ さい --=57"ibs 
7 の print "ファ イル 名 ("+as+") を ファ イル 名 ("+bs+") に 変更 し ます '" 
89 ai=frename(as,bs ) 
99 if ai<>0 then print "ファ イル 名 の 変更 が で きま せん 
109 print "ファ イル 名 の 変更 が で きま し た " 


119 end 


FSEEK 準 関数 


書 式 fseek (fp,os.md) 


戻り 値 int 


指定 され た ファ イル 内 の デー タ ポ イン タ を 移動 し ます 。 フ ァイル を シー クモ ー ド md 
で 指定 され た 位置 か ら 1 バイ ト 単 位 で ラン ダム アク セス する と き に 使用 し ます 。 シ ー 
クモ ー ド md で 指定 され た 位置 か ら 、 オ フ セ モッ ト os で 指定 され た と ころ まで 、 ラ ンダ ム 
アク セス 後 、 新 し い デ ー タ ポイ ンタ の 位置 を 返し ます 。 エ ラー の 場合 は ーー 1 を 返し ま 


29 
fp CC 1 ファ イル 番号 
OS "oo オフ セッ ト (バイ ト 単位 ) 


0 ニ フ ァ イル の 先頭 
1 三 現 在 の 位置 
2 ファ イル の 終わ り 


/* fseek sample 

int ai,bi 

39 ohar ao 

49 str as="persona1 eworkstation X68999 5 き 
59 dim char aoa(31 ) , boa(9) 

69 1input "ファ イル 名 を 入力 し て くだ さい --->?"jbs 
79 for ai= の to 31 


用 例 


ト う 
の ぐ ざ 


89 aca(ai)=asc(mid$(as,ai+]1 ,1 ) ) 
99 next 

199 ai=fopen(bs,"c") 

110 Fo bi= の も Oo. 31 

120 ac=aca(b1 ) 

1309 fputo(ac,ai ) 

140 next 


159 fclose(ai ) 
169 ai=fopen(bs, "rw") 


179 fseek(ai,20,0) 

180 For も 1= ひ も to 9 

190 fseek(ai,1,1) 

290 bca(bi) =fgeto(ai ) 
2109 fseek(ai,-1,1 ) 

229 print chr$( boa( bi ) ) : 
230 next 

249 fcloset(ai ) 

250 end 
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FUNC-CENDFUNCRETURN( ) 。。ー ント 


func < 戻り 値 の 型 >] < 関数 名 >(〔< 引 数 リス トッ >〕) 
< 関数 の 内 容 > 


endfunc 


関数 を 定義 し ます 。func 一 endfunc の 関数 は 、 必 ず end 命 令 以後 に 定義 し ます 。 ま た 、 
func 一 endfunc の 関数 内 で は 、 ロ ー カ ル 変 数 を 指定 で き 、 再 帰 呼び 出し も で きる よう 
な 構造 に な っ て いま す 。 た だ し 、 原 則 と し て 配列 変数 な ど は メイ ンプ ログ ラム の 先頭 
で 宣言 し て くだ さい 。 

通常 、 引数 は カン マ ( , ) で 区 切っ て <⑧| 数 リス ト > に 記述 し ます 。 引数 が な い 場 合 は 省 
略 可 能 で す 。 

それ ぞ れ の 引数 に つづ け て セミ コロ ン (: ) を 書き 、 そ の 後に デー タ 型 を 指定 する こと 
が で きま す 。 こ の デー タ 型 の 指定 を 省略 する と 引数 の デー タ 型 は int 型 に な り ま す 。 
メイ ンプ ログラム 中 で 、 定 義 き され た 関数 に 渡す 引数 の デー タ 型 や 個数 は 、< 引 数 リス ト > 
の デー タ 型 や 個数 と 一 致 き さき せ て くだ さい 。 

func 一 endfunc で 定義 され た 関数 か ら 演算 結果 な どの 値 を 返し た い 場合 は 次 の よう な 
命令 を func 一 endfunc で か こま れ た 中 で 使用 し ます 。 


return (〔< 戻 り 値 >]) 


func 一 endfunc で 定義 きれ た 関数 か ら こ の return 命 令 に よっ て 返さ れる 戻り 値 の デ 
ー タ 型 は 、< 戻 り 値 の 型 > で 指定 する こと が で きま す 。 省略 し た 場合 は int 型 に な り ま 
9998 

func 一 endfunc で 定義 され た 関数 は 、 プ ログ ラム と し て メモ リ 上 に 存在 し て いれ ば ダ 
イレ クト モー ド で も 実行 で きま す 。 


1909 /* funo sample. coast oreation */ 

119 f1oat s 

129 while s<1] or s>=2 

139 3npu も t "ratio 1 to 2"5s 

149 endwhile 

159 s = (s-1 ) / 19+1 

169 soreen 1,2,1,1 

170 s=sqr(S*s-1 ) 

189 float x9=199, x1=412, y9=9, y1= の 

199 fraocta1(x の 9,x1,y9,y1,1) 

2 の 9 1ine(199 の , 59, 412, 59, 255, 65535) 

219 end 

229 funo fraota1(x の jfloat,x1:float,y9:f1oat,y1:jf1oat,spiint) 
239 foa も 1。 * ュ 到 2。 2 

249 1=sqr((x1-x9)*(x1-x9)+(y1-y9 ) * (1-y9 ) ) 
259 if 1<2 or sp>=9 then { 

269 1ine(x9,y9/3+59,x1,y1/3+59,255,65535) : return( ) 
279 } 

289 r=rnd( )+rnd( )+rnd( ) -2 

290 x2=(x9+x1 ) /2+s*(1-y9 ) * エ 

399 2=(y9+y1 ) /2+s*(x の -x1 ) *+ 

319 SD = sp + 1 

329 fraota1(x9,x2,y9,y2,sp) 

339 fraota]1 (x2,x1,y2,y1,sp) 

349 endfuno 


F WRITE 標準 関数 


書 式 


り 値 


切 | | 測 | | 
鼓 | | 刷 | | 難 


+ 


fwrite (na, n, fp) 

数 値 型 一 次 元 配 列 名 (na) , int(n, fp) 

int 

指定 され た 配列 na の デー タ を 、 指 定 さ れ た 要素 数 分 n だ け 指定 され た ファ イル に 書き 


込み ます 。 戻り 値 と し て 、 実 際 に 書き 込ん だ 要素 数 を 返し ます 。 エ ラー の 場合 は ー 1 
を 返し ます 。 


na tt 数 値 型 一 次 元 配 列 名 (nt 型 ま た は 、 char 型 また は 、 float 型 の 一 次 元 
配列 名 ) 

ne 要素 数 (1 バイ ト (char 型 ) ま た は 4 バイ ト (nt 型 ) ま た は 8 バイ ト 
(float 型 ) 単位 ) 

fp gg ファ イル 番号 


ファ イル 内 の デー タ ポ イン タ の 位置 は 、 指 定 さ れ た 配列 na の デー タ 型 に 対応 し て 、 
char 型 で あれ ば 1 バイ ト ず つ 、int 型 で あれ ば 4 バイ ト ず つ 、float 型 で あれ ば 8 バイ ト 
ずつ 移動 し て いき ます 。 フ ァイル 内 を ラン ダム アク セス し て デー タ ポ イン タ を 移動 す 
る 場合 は 、fseek 関 数 を 使用 し ます 。 


fread 


19 /* furite sample 

29 int ai,bi 

39 str asS 

39 dim jint aia(5),bia(5),ocia(9) 

59 dim char aca(23),boa(23) ,cca(9) 
69 linput "ファ イル 名 を 入力 し て くだ さい --->?"jas 
79 for ai= の to 5 

89 aia(ai)=&H12345678 

99 next 

109 /* write 

119 ai=fopen(as,"c") 

129 fwrite(aia,6,ai ) 

139 fclose(ai ) 

149 /* read 

159 ai=fopen(as, "re" ) 


169 fseek(ai,8,0) 

170 fread(cia,1,ai ) 

189 Print "int type data (No.2)=":ihex$(cia(9) ) 
199 fseek(ai,8,0) 

299 fread(cca,1,ai ) 

219 print "char' type data (No.8)=":ihex$(coa( の 9) ) 
229 /* int read 

230 fseek(ai, の 9,9) 

240 fread(bia,6,ai ) 

250 /* char read 

260 fseek(ai,9,9) 

270 fread(bca,23.ai ) 

289 fclose(ai ) 

299 print "int array"i" "7 "ohar array" 
399 for ai= の 9 to 5 

310 bi=a1* ネ 4 

320 print "bia("iaii")="jhex$(bia(ai ) ) : 

330 print " に 

340 print "boa("ibii 7)="ihex$(bca(bi ) ) ji" 5) 

359 print "bea( "bi+1: 7)="ihex$(bca(bi+1)):1" 5 
369 DPin "bea( "Bi1 す 2 )= shex$ あ (bea(bi+2035"  「i 
370 print "bca("ibi+3j")=" inhex$(boa( bi+3 ) ) 

380 next 

390 end 
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FWRITES 準 関数 


式 fwrites (st, fp) 


str 型 変数 名 (st) , int (fp) 


直 int 


指定 され た ファ イル に str 型 変数 st の 1 行 を 書き 込み ます 。 戻り 値 と し て 、 フ ァイル に 
書き 込 


79 /* write fi]e 

89 ai=fopen(as,"c') 

99 print "書き 込む が ファ イル 名 は 、"+ast+" で す " 

199 ぃ hile bs<>ochr$(26) 

110 る 

129 Print "終了 する 場合 は 、 ?end'? を 入力 し て くだ さい !! 

136 1input "文字 や 文字 列 を 入力 し て くだ さい --->?"jbs 

149 7 Cp = @Ghp*$(C13) 。 TE = RSC10) 

150 bs=bs+chr$(13)+ohr$(10) 

1609 /* etl + 必 = onhm$(26) 

179 if bs="end"+ohr$(13)+ohr$(19) then print "ファ イル を クロ ー ズ し ます " 
=chr$(26 ) 

180 fwrites(bs,ai ) 

199 endwhile 

299 foclose(ai ) 

210 for ai=9 to 190999:next 

220 print 

239 re _file(" 書 き 込 まれ た ") 

24 の 9 print 

259 /* update file 

269 ai=foperi(as, "rw" ) 

279 while -1 

289 1input "修正 する 文字 が あり ます か ?<Y/n>-ー-> "ioS 

290 if cs="n" then break 

369 linput "修正 し た い 文 字 を 入力 し て くだ さい --->?"idgs 

310 repeat 

3209 aco=fgeto(ai ) 

330 if ao=13 then bco=bo+1:ocontinue 

310 if ao=19 then bo=bo+1:continue 

359 if ao=26 then break 

360 if bo=1 or bc=2 then print 

370 if asc(ds)=ac then { 

380 color 2 

390 print chr$(ac ) 


ん が 文字 数 を 返し ます 。 エ ラー の 場合 は 、 一 1 を 返し ます 。 


に PCO 書き 込む べき 文字 列 を 格納 し て いる str 型 変数 名 

地 et ファ イル 番号 
null 文 字 (キャラ クタ コー ド の 0 ) は 書き 込み ませ ん 。 フ ァイル 内 を ラン ダム アク セス 
し て デー タ ポ イン タ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 


freads 


/* file sample 

Oh 化 。 渦 社 

char ac,bc 

str as,bs[255],cs,ds,es,fs,bun 
で cls 


linput "ファ イル 名 を 入力 し て くだ さい --->?"iag 
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: bs 


400 color 3 

410 input "この 文字 で よろ し いで すか < く y/n>---> "jes 

429 if es<>"y" then continue 

439 linput "新しく 修正 する 文字 を 入力 し て くだ さい --->?"jfs 
449 fseek(ai,-1,1) 

450 fputc(asc(fs),ai) 

4609 eS="":oontinue]} else 1 

170 color 3] 

480 print chr$(ac ) : 

4909 be=9 

509 until feof(ai)=-1 

510 if ac<>26 then print "修正 する 文字 が あり ませ ん で し た ":break 
520 break 


539 endwhile 
549 print:print 
559 re _fil]e(" 修 正 さ れ た ") 


569 end 


579 /* read file 
589 funco re file(bunistr ) 
599 print bun+" フ ァイル ("+as+") の 内 容 を 表示 し ます " 


699 bs="" 


619 ai=fopen(as, 


"WW 


629 fseek(ai, の 9,9) 
639 repeat 
640 print bs 

650 freads(bs,ai ) 
669 until feof(ai )=-1 
679 focloseal1l() 

689 endfunc 


= 


gcVt (f, i) 


float(f), int G) 


Str 


浮動 小数 値 f を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 


「 文字 列 に 変換 し た い 浮 動 小数 値 
ok 文字 列 の 桁 数 


亜 
示 


準 関数 


通常 は 指定 され た 桁 数 i の 実数 表現 に 変換 し ます が 、 それ が で き な い 場合 は 指数 表現 に 
変換 し ます 。 先頭 の “0” は 変換 の 際 に 取り 除 か れ ま す 。 


atot、ecvt、fcvt 


/* govt sample 
float afF,bf,of 
af=25999999999900# 
bf=-2.6546681E+205# 
cf=-5.2365426E-918# 
print str$(af ) 
print govt(af,20) 
print str$( DF ) 
Print govt( bf , 20 ) 
Print str$(cf ) 
print govt(cf , 20 ) 
end 
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GRAPH 


港 | | 測 | | 
悪 | | 高 | 導 


get (x1,y1,x2,y2,na) 
int(x1.y1,x2.y2) , 数 値 型 一 次 元 配 列 名 (na) 
Void 


グラ フィ ッ ク 画 面 の 指定 領域 の ドッ ト パ タ ー ン を 指定 され た 配列 na に 読み 込み ます 。 


守 和 oe 始点 X 座 禁 
YU ei 始点 Y 座 禁 
に ee 終点 X 座 禁 
72 …… の の 終点 Y 座 標 
0 os ドッ トバ パタ ー ン を 読み 込む 数 値 型 一 次 元 配列 名 


x1、y1、x2、y2 は 、window 関 数 で 指定 され た 範囲 内 の 値 を 取る こと が で きま す 。 ま 
た 、 配列 na へ の ドッ ト パ タ ー ン の 読み 込み か た と し て は グラ フィ ッ ク 画 面 の 実 画面 サ 
イズ お よび 色 モ ー ド に より 次 の よう に な り ま す 。 


実 画面 サイ ズ 1024X1024、16 色 モー ド ( 4 ビッ トブ ド ッ ト 構 成 ) 
読み 込み 順 = (x1, y1) , (x1 二 1, y1) ,…… pt(X2 1) (xy1E) 、( 層 ボ 
1, yl1 十 1) …… siCX2。、 2 
char 型 配列 の 場合 三 2 ドッ ト 単 位 
int 型 配列 の 場合 三 8 ドッ ト 単 位 
float 型 配列 の 場合 三 16 ド ッ ト 単 位 

実 画面 サイ ズ 512X512、16 色 モー ド 
実 画面 サイ ズ 1024X1024、16 色 モー ド と 同様 
但し 、apage 関 数 に よっ て 、 指 定 さ れ た アク ティ ブ ペ ー ジ (0 一 3 ) に 対し て の 
み 有 効 

実 画面 サイ ズ 512X512、256 色 モー ド ( 1 バイ トブ ドッ ト 構 成 ) 
読み 込み 順 三 実 画面 サイ ズ 1024X1024、16 色 モー ド と 同様 
char 型 配列 の 場合 ニモ 1 ドット 単位 
int 型 配列 の 場合 4 ドッ ト 単 位 
float 型 配列 の 場合 三 8 ドッ ト 単 位 
但し 、apage 関 数 に よっ て 、 指 定 さ れ た アク ティ ブ ペ ー ジ (0 、 
み 有 効 

実 画面 サイ ズ 512X512、65536 色 モー ド ( 2 バイ トブ ドッ ト 構 成 ) 
読み 込み 順 三 実 画面 サイ ズ 1024X1024、16 色 モー ド と 同様 
char 型 配列 の 場合 三 2 要素 1 ドッ ト 単 位 
int 型 配列 の 場合 2 ドッ ト 単 位 
float 型 配列 の 場合 4 ドッ ト 単 位 


1 ) に 対し て の 
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グラ フィ ッ ク 画 面 へ の 書き 込み に つい て は put 関 数 を 参照 し て くだ さい 。 


2 put 


GOSUB- ン RETURN 0 


goSsub < 行 番号 > 


指定 し た サブ ルー チン を 呼び 出し 、return 命 令 で も どり ます 。 
た だ し 、gosub 命 令 を 使用 し た プロ グラ ム は 、 行 番号 に 依存 し た プログ ラム に な る た だめ 
load@ 命 令 、 save@ 命 令 は 使用 で きま せん 。 ま た 、 renum 命 令 に よる < 行 番号 > の 変更 
も で き な く な り ま す 。 


し 】 gOto 


19 /* gosub return sample 
29 print "super 「: 
39 gosub 100 
49 print "SHARP" 
59 end 
199 print "personal workstation X68999 
119 return 
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GOTO 


用 例 


ステ デ ー ド メン ト 


goto < 行 番号 > 


指定 し た 行 に ジャ ンプ し ます 。 
た だ し 、goto 命 令 を 使用 し た プロ グラ ム は 、 行 番号 に 依存 し た プロ グラ ム に な る た め 
load@ 命 令 、 save@ 命 令 は 使用 で きま せん 。 また 、 renum 命 令 に よる < 行 番号 > の 変更 
も で き な く な り ま す 。 
goto 命 令 で 、for 一 next、while 一 endwhile な どの プ ブロッ ク 構 造 か ら 外 に 出 て し まう と 
プロ グラ ム の 動作 が 正常 で な く な る 可能 性 が あり ます 。 

19 /* goto sample 

20 print "super 「: 

39 goto 199 


49 end 
199 print "personal workstation X68999 


標準 関数 
hex$(⑪) 
int 
Str 


整数 値 を 16 進 表現 の 文字 列 に 変換 し 返し ます 。 な お 、 上 位 の "0" は 取り 除 か れ ま 
3 


bin$、oct$ 


19 /* hex$ sample 

2 の int ai,bi 

39 ai=-255 

49 bi=1995423099 

5 の print hex$(ai ) 

69 print hex$(bi ) 

79 print hex$(ai)+hex$(bi ) 
89 end 
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書 式 home (pa, X, ) 
引 数 char(pa), int (x, ゞ ) 
戻り 値 void 


グラ フィ ッ ク 画 面 の 実 画面 に お ける 表示 画面 の 左上 座標 を 指定 し ます 。 


Da DO て) アグ チイ ジィ ミー ジ 
RGBEEECCEEOE 実 画面 に お ける 表示 画面 の 左上 X 座 標 
YO の の の の 実 画面 に お ける 表示 画面 の 左上 Y 座 標 


アク ティ ブ ペ ー ジ pa は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に より 最大 値 
(0 一 3 ) が 決ま り 、x、y も 同様 に グラ フィ ッ ク 画 面 の 実 画面 サイ ズ に より 、 実 画面 サ 
イズ が 512X512 の 場合 は 0 か ら 511 ま で 、 あ る い は 実 画面 サイ ズ が 1024X 1024 の 場合 
は 0 か ら 1023 ま で の 値 を と る こと が で きま す 。 

screen 命 令 を 実行 する と (x,y) に は (0,0) が 再 設定 され ます 。 


aDage、Screen、 VDage、 window 


っ う 
1 の 9 /* home sample 

20 1nt et bs 

39 float af 

4 の 9 soreen 1,1,1,1 

59 vpage(9) 

69 window(9,9,511,511 ) 

79 apage(09) 

89 kyu( 9) 

99 apage(1) 

199 kyu(1) 

119 apage(2) 

1209 kyu(2) 

139 apage( 3 ) 

149 kyu(3) 

159 vpage(15) 

169 while -1 

179 for ai= の to 511 


1809 af=pi( )*ai/512 

190 bi=sin(af)*#*511 

200 home(9,ai,bi):home(1,bi,ai ) 

219 home(2,511-ai,bi ) :home(3,bi,511-ai ) 
220 next 

239 endwhile 

249 end 


259 funo kyu(ai ) 

269 cirole(128,128.59,ai*4+1 ) 
279 paint(128,128,ai*4+1 ) 

289 circle(256,256,59,ai*4+2 ) 
290 paint(256,256 ,ai*4+2 ) 

399 cirole(384,384,59,a1*4+3 ) 
310 paint(384,384 ,ai*4+3 ) 

3209 endfuno 


131 


第 4 章 リフ ァ レ ンス 


HSV GRAPH 


hsv (hu, sa, Va) 
char 
| 戻り 値 | mt 


機 能 色相 (hu)、 飽 和 度 (sa)、 明 る さき さ (va) か ら カ ラー コー ド を 求め ます 。 


hu POPPCTYPP 0 ー191 
Sa "eo it 0) ー31 
Va 0) ーー31 


な お 、 こ の hsy 関 数 に よっ て 得 ら れる カラ ー コ ー ド は 、0 一 65534 ま で の 偶数 値 に な り 
ます 。 し た が っ て 、 それ ぞ れ の 偶数 値 に 1 を 加え る こと で 、0 一 65535 ま で の カラ ー コ 
ー ド を 指定 で きま す 。 


19 /*# hsv sample 

2 の 1nt ai,bi,oi 

3 の screen 1,3,1,1 

4 の vpage(1) 

59 for ai= の 9 to 15 

609 forx bi= の 9 to 3 

7 の 9 for oi= の to 2 

809 kyu(b1i*128,C1Kk170,a1*12+b1* ネ 3+o1 ) 
99 nex 

190 mext 
119 next 

129 end 

139 funoc kyu(diiint,eiiint,fi:int) 
149 int gi,hi,ii 

159 fi11(di,ei,di+127,ei+169,9) 
169 for gi= の to 31 


179 hi=31-gi 

189 for ii= の to 1 

199 circle(di+64,ei+64,hi*2+ii,hsv(f1,31,gi )+11., の 9,369,256 ) 
299 paint(di+64,ei+64,hsv(fi,31,gi )+ii ) 

210 next 

229 next 


239 endfuno 
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ITHEN--ELSE ス デ ー ト メシ ト 


書 式 
機 能 


if < 条件 > then < 文 > 【else < 文 


< 条件 > で 条件 判断 を 行い 、 そ の 結果 に 応じ て < 文 > を 実行 し ます 。 

if に 続け て < 条件 > を 指定 し ます 。 そ の < 条件 > が 満た され た と き は then 以 下 の < 文 > が 実 
行き され 、 そ う で な いと き は else 以 下 の < 文 > が 実行 され ます 。 

else 以 降 は 省略 する こと が で きま す 。 その 場合 、 条 件 が 満た され な か っ た と き は 次 の 行 
が 実行 され ます 。 

条件 に は 、 以 下 の よ うな 比較 演算 子 と 論理 演算 子 と が 使え ます 。 論 理 演算 子 は 、 複 数 
の 条件 を 指定 する と き に 使い ます 。 


比較 演算 子 意 味 例 
式 1 王 式 2 式 1 め 式 2 と 等 し い 遂 活 三 
式 1 く > 式 2 式 1 が 式 2 と 等 し く な い if a<>0 
式 1 < 式 2 式 1 が 式 2 よ り 小 さい if a<10 
式 1 > 式 2 式 1 が 式 2 よ り 大 きい if a>b 


式 1 庄 三 葉 9 式 1 が 式 2 と 等 し いか 、 式 2 よ り 小 さい 縮 な 三 hF1 
式 1>= 式 2 式 1 が 式 2 と 等 し いか 、 式 2 より 大 きい if a>= ニ "nm" 


(a は str 型 ) 
論理 演算 子 例 意 味 
not if not (a ニ 1) a が 1 で な けれ ば then 以 下 を 実行 
and if a 三 0 and b 三 8 a が 0 で 、b が 3 の と きのみ then 以 下 を 実行 
Or if a<0 or b=0O a が 0 より 小さ いか 、b が 0 の と き に then 


以下 を 実行 
then 節 また は else 節 は 、{ ) と 組み 合わ せ て 、 複 数 行 の 条件 判断 に 使用 で きま す 。 


19 /* if then else sample1 */ 
29 int ai,bi 

39 input "(1)1+2="jai 

49 input "(2)2+3="ibi 

59 if ai=3 then { 


69 if bi=5S then ( 

79 DSn も "(1)。(2okP ツ ) else ft 

89 print "(1)ok!,」(2)error!" )) else { 
99 if bi=5 then { 

190 print "(1)error,(2)ok!" ) else [{ 

119 print "(1)error!,(2)error!" })} 

129 end 
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19 /* if then ese sample */ 


29 int ai 
39 ミ mmput も "1+2= リ "sa 
49 if ai< く = の then print "error!" el1se 【 
59 if ai=1 then print "error!" else { 
69 if ai=2 then print "error!" else ( 
79 if ai=3 then print "ok!" else {( 
89 print "error!" )}})} 
99 end 
IMG_COLOR IMAGE 


img color(md) 
char 


Void 


落 | | 測 | | 加 | | 中 
鼓 | | 恒 | | 難 | | 半 


取り 込み 画像 の グラ フィ ッ ク ノ フッ パレ ッ ト を 補正 し ます 。 
天 思 xccxo グラ フィ ッ ク 画 面 の 色 モ ー ド (0 一 2 ) 
モー ド md の 値 と 意味 は 次 の と お り で す 。 
0 ニ グ ラフ ィ ッ ク 画 面 16 色 モー ド 


1 ニ グ ラフ ィ ッ ク 画 面 256 色 モー ド 
2 テニ グ ラフ ィ ッ ク 画 面 65536 色 モー ド 
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IMG_HOME IMAGE 


測 | | 避 | | 唱 
仙 | | 引 | | 


洪 
q ト 
CG 


img home(x, y, dir, cnt, wt) 
int (x, y, cnt, wt) , char (dir) 
Void 


グラ フィ ッ ク 画 面 の 表示 画面 の 位置 を 移動 し ます 。 


FR グラ フィ ッ ク 画 面 の 実 画面 に お ける 表示 画面 の 左上 X 座 本 
OR グラ フィ ッ ク 画 面 の 実 画面 に お ける 表示 画面 の 左上 Y 座 本 


dir …e… 移動 方 向 (1 一 9 ) 
RS 移動 ドッ ト 数 
裕人 so ee ウェ イト 時 間 (X 約 1.2Z 秒 ) 


移動 方 向 dr の 値 と 意味 は 次 の と お り で す 。 


1 = 左下 

2 三 下 

3 三 右 下 

= 左 

6 三 右 

7 = 左 1 

: 要 一 : 

9 三 右 上 
10 /* img home sample 
2 の 0 きも ふ 


39 soreen 1,3,1,1 

40 console ,,9 

50 img color(2) 

60 vpage(1) 

70 symbo1(9.0,"N68000"」2」1」.2,32556,0) 
80 /* 

90 img home(0,9,2,100,3000 ) 

100 img home(9,311.8,1909,3000) 

110 1img home(0,9,3,256,3000 ) 
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IMG_HT IMAGE 
書 式 img ht(x1,y1,x2,y2,p,a) 


int (x1,y1,x2.y2) , char (p,a) 


潤 | | 
盲 | | 将 


Void 


機 能 グラ フィ ッ ク 画 面 と テレ ビ ・ ビ デオ 画面 と の 半 透 明 表示 を 制御 し ます 。 

1 tt… グラ フィ ッ ク 画 面 の 半 透 明 領 域 の 始点 X 座 標 

yl ………… グラ フィ ッ ク 画 面 の 半 透 明 領域 の 始点 Y 座 標 

2 ee グラ フィ ッ ク 画 面 の 半 透 明 領 域 の 終点 X 座 標 

Y2 trt グラ フィ ッ ク 画 面 の 半 透 明 領 域 の 終点 Y 座 標 

MYCNtoone3 指定 され た 領域 の グラ フィ ッ ク 画 面 の 半 透 明 表示 の 設定 (0 = 設 
定 し な い 、 1 三 設定 する ) 

EDOKH 半 透 明 表 示 の 制御 ( 0 半 透 明 表 示 を 実行 し な い 、 1 三 半 透 明 表示 を 
実行 する ) 

な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニット CZ-6VT1 が 必要 で す 。 
IMG_LOAD IMAGE 


img load(st〔,x]〔,y〔,b]) 
str (st) , int (x, Y, Db) 


int 


(て 
が 
Pe 


グラ フィ ッ ク 画 面 を ロー ド し ます 。 戻 り 値 と し て 、 正常 の と き は 0 、 エ ラー の 
ー 1 を 返し ます 。 


藻 | | 測 | | 避 | | 暗 
璧 | | 融 | || | 


St ………… 主 フ ァイル 名 
3 odct2etzm ロー ド す る グラ フィ ッ ク 画 面 の 左上 X 座 標 
了 SReGosssx ロー ド す る グラ フィ ッ ク 画 面 の 左上 Y 座 橿 
表示 画面 サイ ズ が 512X512 の 場合 
x デ 0y テ 0 


表示 画面 サイ ズ が 256xX256 の 場合 
0 ミ x ミ 256,0 S y 256 
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b Ba いみ ロー ド 終 了 位置 の 指定 
=dy 
5 


dy… 下 図 の と お り Y 座 標 の 下 か ら の ドッ ト 数 


と 撤 張 子 n 

GS3 …16 

Pi ング GMO0…16 
512 ド ッ ト ン ノ GM3… 8 
介 ー ロ ー ド 終了 位置 GLO … 8 


/ GL3 … 4 


256 ま た は 512 ド ッ ト 


拡張 子 の 斉 球 に つい て は 、 img_save 関 数 を 参照 し て くだ さい 。 


IMG_POS IMAGE 


只 


測 
記 3 


洪 


q ト 


式 


CC 


img pos(hc) 
char 
Void 
画像 取り 込み 時 の 画面 水平 位置 を 補正 し ます 。 
he … の の 水平 位置 補正 デー タ (0 一 255) 
@ 表示 画面 サイ ズ が 512X512 の 場合 
画像 取り 込み する 際 、 は じ し め は &H9A に セッ ト し 、 静 止 画 に し た 後 &H2C に 設定 し 
ます 。 
@ 表示 画面 サイ ズ が 256X256 の 場合 


は じ め は &HEB に セッ ト し 、 静 止 画 に し た 後 、&H24 に 設定 し ます 。 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 が 必要 で す 。 
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IMG_PUT IMAGE 


img put(x1.y1,x2.y2、ia) 
int(x1.y1,x2.y2) , int 型 一 次 元 配列 名 (ia) 
Void 


グラ フィ ッ ク 画 面 の (x1.y1) か ら (x2.y2) ま で 、 8 ドッ ト ご と に 移動 し な が ら 、 配 列 
ia の デー タ を 256X256 ド ッ ト の ボッ クス で 表示 し ます 。 


1 et グラ フィ ッ ク 画 面 の 始点 X 座 標 (0 ミ x1 ミ 256) 
yl ……… グラ フィ ッ ク 画 面 の 始点 Y 座 標 (0 ミ y1 ミ 256) 
2 ……… グラ フィ ッ ク 画 面 の 始点 X 座 標 (0 ミ x2 ミ 256) 
Y2 ……… グラ フィ ッ ク 画 面 の 始点 Y 座 標 (0 ミ y2 ミ 256) 
ja tt get 関 数 で 読み 込ん だ int 型 一 次 元 配 列 名 


IMG_SAVE IMAGE 


img save(st〔, x]〔,y)) 
Str (St) , int (x, ) 
int 


グラ フィ ッ ク 画 面 を セー ブ し ます 。 戻り 値 と し て 、 正 常 の 時 は 0 、 エ ラー の 時 は 1 
を 返し ます 。 


St exeszess 主 フ ァイル 名 
拡張 子 は グラ フィ ッ ク 画 面 の スク リー ン モ ー ド に 応じ て 以下 の よう に 付加 され ます 。 

表示 画面 サイ ズ 色 モ ー ド 拡張 子 
256X256 16 色 GS0 
256X256 256 色 GM0 
256X256 65536 色 GL0 
512x512 16 色 GS3 
512x512 256 色 GM3 
512X512 65536 色 GL3 

Re セー ブ す る グラ フィ ッ ク 画 面 の 左上 座標 

ee セー ブ す る グラ フィ ッ ク 画 面 の 左上 Y 座 橿 

表示 画面 サイ ズ が 512x512 の 場合 
x デ 0.y テ 0 


表示 画面 サイ ズ が 256x256 の 場合 
0 ミ x さ 256,0 S y ミ 256 
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IMG_SCRN IMAGE 


藻 | | 測 | | 加 | | 唱 
告 | | 走 | | 難 | | 


img scrn(sZ, co, dis) 
int 
void 


グラ フィ ッ ク 画 面 の スク リー ン モ ー ド を 設定 し ます 。 
た だ し 、 グ ラフ ィ ッ ク 画 面 ク リア 、 パ レッ ト ・ コ ント ラス ト ・ 表 示 モ ー ド の 初期 化 は 
行い ませ ん 。 


に と 2 細 odorriit 表示 画面 サイ ズ (0 一 2) 
(0 三 256 メ 256 
1 三 512X512 
2 三 768X512 
間 2 グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド (0 一 3) 
0 =1024X1024 16 色 
1 512X512 16 色 
2 =512X512 256 色 
3 =512X512 65536 色 
diS ir… ディ スプ レイ 解像度 (0 、 1 ) 
0 標準 解像度 
1 三 高 解像度 
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IMG_SET IMAGE 


書 式 img set(c[,c]〔,c]【,c] 【, c] ) 
char 


機 能 カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 の 各種 コン トロ ー ル を 行い ます 。 


Cu カラ ー イ メー ジュ ユニ ッ ト の コン トロ ー ル コー ド (&H00 一 &HFF) 
コン トロ ー ル コー ド 一 覧 表 (使用 ポー ト ア ドレ ス E8E005n) 
入力 する 値 | コー ド 命 令 備 考 
0 | 00(D| 00000 | 65536 色 (2) モ ー ド 
1| 0】 | 00001 
2| 2 | 00010 | 
引 03 00011 | コン ピュ ー タ コン トロ ー ル モー ド | 赤色 ラン ププ 点灯 
4| 04 00100 | マニ ュ ア ルモード 緑色 ラン プ 点 灯 
5 | 05 | 0O101 | [カラー イメ ー ジ | を / ノ クロ 遇 人 いで 2 
6| 06 | 00110 || 。 | 品 カ ON 上 
人 | 
7| 07 | 0om 出力 OFF 1 還 人 リセ ッ ト で 抽 除 きれ る 。 
8| 08 | 01000 リセ モット es 
9| 9 | oo | 色 の 濃 き UP 5 
10| 0A | oio0 UN ーー 
カラ ト 
In1| 0B | nl ーッ | 色あい OP ーー 
12| 0C | O100 あい DOWN 2 
sl op | omm 映像 UP ーー 
14| OE | ol0 映像 DOWN ーー 
15 | OF | 011l | 256 色 (2 モード 
16| 10 | 10000 || | リセット ーー 人 
17| 11 | 1001 色 の 渡さ UP 志 
18 | 12 | 10o0 の DOWN ーー 
19| 13 | 1oon テロ ッ パ | 色あい UP = 
|20| 4 | imoo 色あい DOWN 記 
zu| js | im 映像 UP 寺 
22| 16 | 10110 映像 DOWN ーー 
23 | 17 | 10111 | 16 色 29 モー ド 
24| 18 | 11000 
) ) ) 空き 
31| 1F | in 


な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ニッ ト CZ-6VT1 が 必要 で す 。 
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IMG_STILL IMAGE 


書 式 img still (sw) 
引 数 char 
戻り 値 void 
機 能 画像 取り 込み モー ド sw を 設定 し ます 。 
SW の "tm の 画像 取り 込み モー ド の 設定 
0 三 実 行 (静止 画 ) 
1 三 待機 動画 ) 
実行 前 に 、screen 命 令 で 、 あ ら か じ め 表 示 画 面 サ イズ を 256X256 ま た は 512X512 に 、 
ディ スプ レイ 解像度 を Low (標準 解像度 ) に 設定 し ます 。 


また 、 画 像 取り 込み を 実行 する プロ グラ ム の 終了 時 に は 、img still(0) を 実行 し ます 。 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 か 必要 で す 。 


INKEY $ 1 


書 式 inkey $ 


[戻り の 値 | sr 
機 能 | キー ポー ド か ら 入 力 さ れ た 1 文字 を 返し ます 。 代 入 す る こと は で きま せん 。 キ ー 入 力 
され る まで 待ち ます 。 


input、「 キ ャ ラク タコ ー ド 表 」 


に 
| 19 /* inkey$ sample 
用 例 20 str as 


39 while as<> "gz" 

49 print "end of code = リ g! 
59 a8=inkey$ 

69 print as 

79 endwhi1e 

89 end 


141 


第 4 章 リフ ァ レ ンス 


INPUT ステ ー ト メン ト 


input 〔" く < プロ ンプ トト 文 ?" く <: また は , >〕< 変 数 名 >〔, < 変数 名 >. . . 〕 


キー ボー ド か ら 入 力 さ れる デー タ を 、 指 定 し た デー タ 型 の 変数 へ 代入 し ます 。 デ ー タ 
を 入力 し た ら 、 リ ター ン キ ー を 押し て くだ さい 。 

input 文 で は 、 く プロ ンプ ト 文 > と < 変数 名 > の 間 に セ ミ コロ ン ( : ) あ る い は 、 カ ンマ ( , ) 
が 指定 で き 、 セ ミコ ロン の と き は < プロ ンプ トト 文 > の 後に 疑問 符 ( ? ) が 表示 され 、 カ ン 
マ の と き は な に も 表示 され ませ ん 。 ま た 、 変 数 に 入力 で きる 最大 文字 数 は 、 セ ミコ ロ 
ン (: ) を 使用 し た 場合 は 、 そ の 表示 画面 の 水平 最大 表示 文字 数 (プロ ンプ ト 文 字 
数 十 3 ) に な り 、 カ ンマ ( , ) を 使用 し た 場合 は 、 そ の 表示 画面 の 水平 最大 表示 文字 数 一 
(プロ ンプ ト 文 字数 十 1) に な り ま す 。 た だ し 、str 型 変数 の 場合 は 、 設定 され た 文字 バ 
ッ フ ァ の サイ ズ 以 上 の デー タ は 代入 きれ ませ ん 。 な お カン マ ( , ) や 引用 符 (") は 入力 
で きま せん 。 

変数 は 、 カ ンマ ( , ) で 区 切っ て 複数 個 指定 する こと も で きま す 。 こ の 場合 、 入 力 する 
デー タ も カン マ ( , ) で 区 切っ て 、 変数 の 数 だ け 入 力 し て か ら リ ター ン キ ー を 押さ な け 
れ ば な り ま せん 。 入力 する デー タ の 個数 が 足り な いと 、" デ ー タ の 個数 が た り ま せん " 

と 表示 され て 入力 待ち と な り 、 個 数 が 多い と 、" デ ー タ の 個数 が 多 過ぎ ます " と 表示 き 
れ 、 余 分 に 入力 され た デー タ は 無視 され ます 。 ま た 、 対 応 する 変数 の 型 と 入力 され る 
デー タ の 型 は 、 一 致し な けれ ば な り ませ ん 。 型 が 違っ て いた 場合 に は 、 "デー タ の 型 が 
違い ます "と 表示 され て 再び 入力 入 ち と な り ま す 。 


inkey$ 


19 /* input sample 

2 int ai,bi 

3 の 9 char ac,bo 

4 の 9 float af,bf 

5 の str as[255],bs[255] 


69 input "int data ai,bi = "。ai,bi 

7 の 9 input "char data ac,bo = "ijao,bo 

8 の input "float data af,bf = ",af,bf 

99 input "str data as = "ias 

10 の 9 primt "in も data ai = “sai 。 "も ii=" kibi 
119 print "char data ao = "jac, "bo=":bo 
2 の | DE も "Hoa 邊 ata af = "afF by 
139 rint "str data as = "sz:as 

149 end 
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用 例 


instr(i, st1 ,st2) 
int (i) , str (st1 ,st2) 
int 


文字 列 st2 を 文字 列 st1 の 指定 され た 位置 : か ら 探 し て その 位置 を 返し ます 。 位 置 i は ] 
ー255 の 値 を と り ま す 。 た だ し 次 の 場合 は 0 を 返し ます 。 


@ 文字 列 st2 が 見 つか ら な か っ た 場合 
@ 指 定 さ れ た 位置 が 0 また は 負 の 場合 
@ 文字 列 st1 ま た は st2 が nnu]ll 文 字 の 場合 


19 /* instr sample 

2 str as,bs 

39 as="persona1 eworkstation X68999 
49 bs="X68" 

59 print instr(2,as,bs ) 

69 end 


スス デート メデ ント 


int < 変数 名 >〔 王 < 定数 式 >](, . . .〕 


変数 を 整数 (int) 型 と し て 宣言 し ます 。 同 時 に 値 を 代入 する こと も で きま す 。 
原則 と し て 、 変 数 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 ま た 、 同 じ 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 


char, float, str 


19 /* int sample 

20 int ai=542684521 
3 の int bi=-4265312 

40 int oi=23563,di=28 
59 print ai 

69 print bi 

70 prinmt oi。d ュ i 

89 end 
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INT 準 関数 


int(⑪ 
float 
戻り 値 int 
浮動 小数 値 f を 越え な い 最 大 の 整数 値 を 返し ます 。 


19 /* int() sample 
20 fl1oat af=2.63# 
39 float bf=-5.6# 
40 fl1oat of=51 
59 print int(af ) 
69 print int(bf ) 
7 の 0 prin も 3m も (cf) 
89 end 


っ A 


ー 


NUM 標準 関数 


isalnum (ch) 
char 
int 
機 能 キャ ラク タコ ー ド ch の 文字 が 英 数 字 (aー'”A"ー グ 、"0" 一 "9) で ある か どう か 調 
べ ま す 。 英 数 字 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


ei 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


19 /* isa1num sample 
用 例 29 char ac,bo,cc 

39 ac=asc("a") 

49 bo=aso("5") 

59 cc=asc("+") 

69 print isalmum(ao) 
79 print isalnum( bc ) 
89 print isalnum(co ) 
99 end 
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ISALPHA 標準 関数 


書 式 isalpha (ch) 
char 
le 


キャ ラク タコ ー ド ch の 文字 が 英字 (a 一 の"Aー グ ) で ある か どう か 調べ ます 。 英字 
で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


工 
q ト 
CC 


ch ……… 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


19 /* isa]pha sample 
用 例 29 char ao,bo,oco 

39 ao=asc("a") 

49 bo=asc("5") 

59 oc=aso("+") 

69 print isalpha( ao ) 
7 の print isalpha( bo ) 
89 print isa1lpha(coc ) 
99 end 


ISASCII 上 準 関数 


書 式 isascii (ch) 
char 
キャ ラク タコ ー ド ch の 文字 が アス キー 文字 (&H00 一 を H7F) で ある か どう か 調べ ま 
す 。 ア スキ ー 文 字 で あれ ば 一 1 、 そ う で な けれ ば (00 を 返し ます 。 


ch POPPPELPPD 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


19 /* isasoii sample 
用 例 29 char ac,bo,co,do 

39 ao=asc("a") 

49 bo=aso( "5") 

59 cc=asc("+") 

69 do=asc( "ミリ ") 

7 の 9 print isasoii(ao) 

89 print isasocii( bo ) 

99 print isasoii(oo) 

199 print isasoii(do) 

119 end 
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ISCNTRL 


iscntrl(ch) 
char 
| 戻り の 値 | int 


キャ ラク タコ ー ド ch の 文字 が コン トロ ー ル 文字 ( 移 H00 一 交 H1F、 科 H7F) で ある か 


どう か 調べ ます 。 コ ント ロー ル 文 字 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


Ch nmo 調べ た い 文字 の キャ ラク タコ ー ド (0 一 255) 
19 /* iscntr] sample 
29 char ao,bo,cc,dc 


39 ac=asc("a") 

49 bo=aso( "5") 

5 cc=asc("+") 

69 do=13 /* ontrl+M */ 
79 print iscntr](ao) 

89 print isontr1 ( bo ) 

99 print isontr1 (Go ) 

109 print isontr] (do ) 

110 end 


SDIGIT 


中 
23 


isdigit (ch) 
char 


int 


藻 | | 測 | | 
告 | | 走 | | 


ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


の IN ee 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


/* isdigit sample 
Char ao。 bo,Go 

39 ao=asc("a") 

49 bo=asc("5") 

59 co=asc("+") 

6 の print isdigit(ao) 
7 の print isdigit( bo ) 
89 print isdigit(oo) 
99 end 


ト う 一 
SS ぐ ざ 


用 例 
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覇 準 関数 


キャ ラク タコ ー ド ch の 文字 が 数 字 C0'-'9) で ある か どう か 調べ ます 。 数字 で あれ 


ISGRAPH 標準 関数 


isgraph (ch) 
char 
mn 
機 能 キャ ラク タコ ー ド ch の 文字 が 空白 文字 以外 の 表示 可能 な 文字 (を H21 一 &H7E) で あ 
る か どう か 調べ ます 。 表 示 可 能 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


REC 調べ た い 文字 の キャ ラク タコ ー ド (0 255) 


用 例 19 /* isgraph samp1e 
20 


char ac,bo,oo,dc 
39 ao=asc("a") 
49 bo=13 /* cntr1+M */ 
59 co=asc(" ") 
69 doc=asc(" ミ ") 
7 の print isgraph ( ao ) 
89 print isgraph ( bc ) 
9 の print isgraph ( oc ) 
199 print isgraph (doc ) 
119 end 


SLOWER 標準 関数 


書 式 islower (ch) 


char 
nt 
キャ ラク タコ ー ド ch の 文字 が 英 小 文字 (ぷー タリ) で ある か どう か 調べ ます 。 英 小文字 で 


あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


CH eo 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


/* islower sample 
char ac, bo,co 

39 ac=asc("a") 

49 bc=aso("A") 

59 cc=asc( "5") 

69 print islower(ao ) 
70 print islower( bc ) 
80 print islower( Go ) 
99 end 


用 例 


ト う ルー 
や ぐ ざ マ 
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ISPRINT 標準 関数 


書 式 isprint (ch) 
char 
int 


藻 
q ト 
CC 


キャ ラク タコ ー ド ch の 文字 が 表示 可能 な 文字 (を H20 一 &H7E) で ある か どう か 調べ 
ます 。 表 示 可 能 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


ch ………| 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


19 /* isprint sample 


用 例 29 char aco,bo,oo,dc 
39 ao=asc("a") 
49 bo=13 /* cntr1+M */ 
59 co=asc(" “") 
69 dc=asc(" ミ ") 


79 print isprint(ao ) 
89 print isprint( bo ) 
9 の print isprint(oo ) 
199 print isprint(do) 
119 end 


ISPUNCT 標準 関数 


書 


3 


ispunct (ch) 
char 


int 


落 | | 測 | | 
午 | 高 | | 


キャ ラク タコ ー ド ch の 文字 が 表示 可能 な 記号 文字 (&H20 一 &H2F、&H3A-& 
H40、&H5B 一 交 H60、&H7B 一 &H7E) で ある か どう か 調べ ます 。 表 示 可 能 な 記号 
文字 で あれ ば ー 1、 そ う で な けれ ば (0 を 返し ます 。 


ek の 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


19 /* ispunot sample 
29 char ao,bo,oc 

39 aoc=asc(" 1" ) 

49 bc=aso("+") 

59 co=asc("。") 

69 print ispunot( ao ) 
79 print ispunot( bo ) 
8 の print ispunot( oo ) 
9 の end 
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ISSPACE 標準 関数 


isspace (ch) 
char 


機 能 キャ ラク タコ ー ド ch の 文字 が 空白 文字 (を H09 一 交 HOD、&H20) で ある か どう か 調べ 
ます 。 空 白 文 字 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


NE 調べ た い 文字 の キャ ラク タコ ー ド (0 255) 


19 /* isspaoe sample 
用 例 29 char ao,bo,occ 

39 ac=aso("a") 

49 bo=aso("+") 

5 の oc=asc(" ") 

69 print isspaoe( ao ) 
79 print isspaoe( bc ) 
89 print isspaoe( co ) 
99 end 


ISUPPER 準 関数 


書 式 isupper (ch) 
char 
hn 
キャ ラク タコ ー ド ch の 文字 が 英 大 文字 (AZ の) で ある か どう か 調べ ます 。 英 大 文字 
で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


ON ま Cee っ 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


19 /* jisupper sample 
用 例 29 char ao, bo,Co 

39 ac=asc("a") 

49 bc=aso("A") 

59 cc=asc( "5") 

69 print isupper( ac ) 
79 print isupper( bo ) 
89 print isupper( oo ) 
99 end 
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ISXDIGIT 


書 式 isxdigit (ch) 

引 数 char 

戻り 値 int 

機 能 キャ ラク タコ ー ド ch の 文字 が 16 進 数 の 文字 (0' 一 '9'、a 一 fA FE) か どう か 調 


べ ま す 。16 進 数 の 文字 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


ei 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


2 int ai 
3 の 9 char ac 
49 cls 

59 color 3 


69 print "!isxdigit' の 文字 の チェ ッ ク を 行い ます (該当 すれ ば 黄色 で 表示 し 、 


し な けれ ば 白色 で 表示 し ます ) ”" 

79 print " 文 --- コ ント ロー ルコ ー ド " 

89 print "ロー--- ス ペー ス (空白 )“" 

99 print " 代 --- シ フト J IS (2 バイ ト ) コー ド の 先頭 コー ド " 

199 print "$--- シ フト J TS (2 バイ イト) コード の 先頭 コー ド " 

119 print 

129 for ai=1 to 256 

139 acC=a1-1 

1409 if ac<>9 and (ac mod 16)=9 then print 

1509 if ac>= の 9 and ac<=31 then 

1609 if isxdigit(ac)=-1 then color 2:print " 雄 「::Continue 
衣 jiContinue] 

1709 if ae=32 or ao=127 or ac=169 then { * 

189 if isxdigit(ao)=-1 then color 2:print " 口 "i:continue 
口 "j:continue} 

1909 if ac>=128 and ac<=159 then { 

200 if isxdigit(ao)=-1 then color 2:print " 坦 "::Continue 
倫 continue} 

210 if ao>=224 then { 

229 if jisxdigit(ao)=-1 then color 2:print " 金 "j:Continue 
@ icontinue} 

230 if isxdigit(ac)=-1 then color 2 else oolor 3 

240 jprint " “"+ehr$(ao) ぅ 

259 next 

269 end 


else print 


else print 


else print 


else print 


該 当 


譲 準 関数 
itoa(i) 
int 
str 


整数 値 を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 
atoi 


19 /* itoa sample 

29 int ai,bi 

39 ai=3999099 

49 bi=-512 

59 print itoa(ai ) 

69 print itoa( bi ) 

79 print itoa(ai )+itoa (bi ) 
89 end 


デー ド メ シ ント 


key < ファ ンク ショ ン キ ー ナ ン バ パー>, く 文字 列 > 


ファ ンク ショ ン キ ー の 内 容 を 定義 し ます 。 < ファン クシ ョ ン キ ー ナ ン バ ー> は 1 一 20 
で 、1 一 10 は | F 1 | 一 |F10 | キー を 、 11 一 20 は | SHIFT | キー を 押し な が ら [F1 | 
F10 | キー を 押し た 場合 に 対応 し ます 。 

く 文字 列 > の 長き は 32 文 字 ま で 有効 で す 。|CTRL| 二 | A | (|CTRL| キ ー を 押し な が 
ら | A | キー を 押す )、 |CTRL|+| M | (ICTRL| キ ー を 押し な が ら | M | キー を 押 
す ) の よう な 文字 を 定義 する に は 、"@A"、@M" の よう に "@” と 対応 する 各 大 文字 
を 並べ て 使い ます 。 

な お 引用 符 ( ") は "@@" と な り ま す 。 


「 コ ント ロー ルコ ー ド 一 覧 」 


19 /* key sample 

20 key 3, "renum@M" 

39 key 11,"@@X68999@@" 
49 key 19,"endfuno" 

59 end 
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KEY LIST コマ ンド 


書 式 key list 


ファ ンク ショ ン キ ー の 内 容 一 覧 を 表示 し ます 。 
| 用 例 | 


用 例 key 1isE 


kil "(< ド ライ ブ 名 〉] く ファ イル 名 >" 
省略 形 | ki 


指定 し た ファ イル を 削除 し ます 。 く < ドラ イブ 名 >、< フ ァイル 名 > の 詳細 に つい て は 、 
「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 参照 し て くだ さい 。 


用 例 ki]1] "a:\ も test.dat" 
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LEFT や 標準 関数 


left $ (st, 1) 


str (st) , intG) 


戻り 値 Str 
文字 列 st の 先頭 か ら 指定 され た 文字 数 i の 文字 列 を 取り 出し て 返し ます 。 
Se 元 の 文字 列 (文字 式 ) 
「COOCOCOPCK 取り 出し た い 文 字数 


文字 数 i は 、 1 か ら 255 の 値 を と り ま す 。 

指定 され た 文字 数 近 *、 文 字 列 st の 総 文字 数 より 大 きい と き は 、 文 字 列 st を その まま 取 
り 出 し て 返し ます 。 

指定 され た 文字 数 が \、 0 また は 負 の 場合 は null 文 字 を 返し ます 。 


mid$ 、right $ 


っ 
用 例 1 の /* 1eft$ sample 
29 str as 


39 as="persona] workstation X68999 
4 の 9 print ]left$(as,8) 
59 end 
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LINE 


GRAPH 


書 式 
引 数 


line(x1.y1,x2,y2,p【, 1s) ) 


int 


void 


グラ フィ ッ ク 画 面 上 に 直線 を 引き ます 。 


5 Rides 始点 X 座 標 

yl ……… 始点 Y 座 橿 

2 ………… 終点 X 座 標 

y2 80 0)em 人 終点 Y 座 標 

DO の の ッ パ レッ トコ ー ド ( 色 ) 
ls … の の ir… ライ ンス タイ ル 


x1、y1、x2、y2 は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 ク リッ ピン グ 
エリ ア に いて は window 関 数 で 指定 され た 範囲 に な り ま す 。 また 、 パ レッ トコ ー ド p は 
0 か ら 65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サ 


イズ 及び 色 モ ー ド に より ます 。 


ライ ン ネ タイ ルル ls は 0 一 65535 の 値 を と り 、 こ れ を 16 ビ ッ ト の ビッ トペ パター ン と 見 な 


し 


/* 1ine sample 


実線 (を &HFFFF) や 点線 (を HAAAA) な ど を 指定 する こと が で きま す 。 


int ai,bi,ci,di,e1,f ュ 1,g ュ 1 


screen 1,3,1,1 
ypage(1 ) 


for ai= の 9 to 1099 


bi=rand() mod 512 
ci=rand( ) mod 512 
di=rand() mod 512 
ei=rand() mod 512 
fi=rnd( )*65535 
gi=65535 


1ine(bi,ci,di,e1,f1,gi ) 


wipe( ) 
for ai=9 to 109 


bi=rand( ) mod 512 
ci=rand() mod 512 
di=rand() mod 512 
ei=rand() mod 512 
fi=rnd()*65535 
gi=rnd()*65535 


1ine(bi,ci,di,e1,f1,g1 ) 


next 
end 
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LINPUT ステ ー ト メン ト 


書 式 
機 能 


Hinput 〔"< プ ブロ ンプ ト 文 2":J く str 型 変数 名 > 


旧 定 され た str 型 変数 に 、 キ ー ボ ー ド か ら 文 字 列 を 入力 し ます 。 文字 列 を 入力 し た ら 、 
リタ ー ン キー を 押し て くだ さい 。input 命 令 と 違い 、 一 度 に 一 つの str 型 変数 に し か 代入 
で きず 、 また 数 値 型 の 変数 へ の 代入 は で きま せん 。 カン マ ( , )、 引 用 符 ( ") な ども 代 
入 す る こと が で きま す 。 

linput 文 で は 、 疑問 符 ( ? ) は 表示 され ませ ん 。 ま た 、str 型 変数 に 入力 で きる 最大 文字 
数 は 、 そ の 表示 画面 の 水平 最大 表示 文字 数 一 (プロ ンプ ト 文 字数 十 1) と な り ま す 。 た 
だ し 、 設 定 さ れ て いる 文字 バッ ファ の サイ ズ 以 上 の デー タ は 代入 され ませ ん 。 


10 /* 1]input sample 
29 str as,bs[255] 
39 as="X68996" 

4 while bs<>as 


59 print "end of string=?X68099! " 

69 1input "input string (11ine)--->":bs 
70 print bs 

89 endwhile 

99 end 
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(JHist (< 行 番号 1 >]( 一 ( く 行 番号 2 >]〕 
省略 形 WM 


機 能 メモ リ に ある プロ グラ ムリ スト を 画面 に 表示 し た り 、 プ リン タ に 印刷 し ます 。 
表示 を 開始 する < 行 番号 1 > を 省略 する と 、 プ ログ ラム リス ト の 先頭 か ら 表 示 が 始ま 
り 、 表 示 を 終了 する < 行 番号 2 > を 省略 する と 、 プ ログ ラム リス ト の 最後 まで が 表示 さ 


まだ だ ああ 村 。 
list プロ グラ ムリ スト の 先頭 か ら 最後 まで が 表示 され ます 。 
list 50 行 番号 50 の 行 の み 表示 され ます 。 


list 一 100 プロ グラ ムリ スト の 先頭 か ら 100 行 目 ま で が 表示 され ます 。 
list 200 一 プロ グラ ムリ スト の 200 行 目 か ら 最 後 ま で が 表示 され ます 。 


list の 機能 を 一 時 停止 し た いと き は 、|CTRL | ] S | キー を 押し ます 。 何 か キー を 押せ 
ば 、 表 示 を 再開 し ます 。 ま た 、list の 機能 を 終了 し た いと き は 、| BREAK | キー 
(また は | CTRL | + | C | キー) を 押し ます 。 

list 命 令 の 代わ り に Illist 命 令 を 用 いれ ば 、 プ ログ ラム リス ト を プリ ンタ に 印刷 する こと 
が で きま す 。 


1ist 19-299 
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っ 


1oad[@〕 "〔< ド ライ ブ 名 >] く < ファ イル 名 >” 〔, < 行 番号 >]【, < 増分 >〕 
]o. 


指定 し た BASIC プ ログ ラム を ロー ド し ます 。 

プロ グラ ム が ロー ド さ れる と 、 そ れ ま で メモ リ 上 に あっ た プロ グラ ム は 消さ れ ま す 。 
load@ は 行 番号 を 除い て (save@ に よっ て ) セ ー プ され た プロ グラ ム に < 行 番号 > と そ 
の < 増分 > を 指定 (し な けれ ば と も に 10) し て ロー ド し ます 。 こ の 場合 、 プ ログ ラム は 、 
指定 され た 行 番号 か ら 、 指 定 さ れ た 増分 を 加え た 行 番号 を 付加 し な が ら ロ ー ド され ま 
す 。 すでに プロ グラ ム が メモ リ に ある 場合 、 ロード し た プロ グラ ム が マー ジ (混合 、 師 
加 ) さ れ ま す 。 < ドラ イブ 名 >、 < ファ イル 名 > に つい て の 詳細 は 、「Human68k ユ ー ザ ー 
ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


SaVe 


load "a:\test.dat" 


LOCATE ステ ー ト メン ト 


機 能 


/* 1ooae sample 
int ai,bi 


cl1s 


locate <X 座 標 >, く <Y 座 標 >(, < カー ソル スイ ッ チ >〕 
loc. 


カー ソル を テキ スト 画面 の く XX 座 標 >、 く Y 座 標 > で 指定 され た キャ ラク タ 座 標 位置 へ 移 
動 し ます 。 <X 座 標 >、 く Y 座 標 ? の と りう る 男 囲 は スク リー ン モ ー ド と スク ロー ル エ リ 
ア に より ます 。 < カー ソル スイ ッ チ > が 0 の と き は 、 カ ー ソ ル 表 示 OFF で 、1 な ら カ ー 
ソル 表示 ON で す 。 

な お 、 く < カー ソル スイ ッ チ > が 有効 な と き は 、 プ ログ ラム で < カー ソル スイ ッ チ > を 0 に 
し て 実行 し て いる 間 の み で す 。 プ ログ ラム が 終了 し て “Ok” が 表示 され る と カー ソル 
表示 ON に な り ま す 。 


for ai=9 to 20 

1ocate ai*4,a1,1:print "persona] workstation X68909 
1ocate 95-ai*4,ai+19,1:print "persona1 workstation X68900 
for bi= の to 5999 


next 
end 


nex も 
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ワレ 


log(n) 
Hoat 
foat 


機 能 数 値 n の 自然 対数 を 返し ます 。n> 0 で な けれ ば な り ま せん 。 


19 /* log sample 
用 例 2 の int ai be 91 
39 fl]oat af 
49 soreen 1,3,1,1 
59 vpage(1) 
69 1ine( の 9,255,.511,255,65535,&HFFEF ) 
79 for ai=1 to 3 


809 for bi=1 to 511 

99 af=bi/159.95222# 

199 ci=255-1og(af)*ai*60 
1109 di=rnd( )*65535 

129 pset(bi,oi,di ) 

1369 next 

119 next 

159 end 
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に 3 


mid$ (st, i1 .i2) 
str (st) , int (i1 12) 
Str 


文字 列 st の 中 の 指定 され た 位置 ii か ら 指定 され た 文字 数 2 分 の 文字 列 を 取り 出し て 返 
ま 5 


BN 元 の 文字 列 (文字 式 ) 
22 取り 出し 始め る 位置 
5 取り 出し た い 文字 数 


位置 i1 お よび 文字 数 t2 は 、1 か ら 255 の 値 を と り ま す 。 

取り 出し た い 文 字数 i2 が 文字 列 st の 取り 出し 始め る 位置 ii か ら の 文字 数 より も 大 きい 
と き は 、 指 定 され た 位置 i 以 隆 の すべ て の 文字 列 を 取り 出し て 返し ます 。 取 り 出 し 始め 
る 位置 i1 が 、0 ある い は 負 の 場合 や 、 文字 列 st の 長き を 越え て いる 場合 は null 文 字 を 返 
し ます 。 取り出し た い 文 字数 i2 が 、0 ま た は 負 の 場合 も null 文 字 を 返し ます 。 


left$ 、right$ 


19 /* mid$ sample 

29 str as 

3 as="persona]1] workstation X68909 
4 の print mid$(as,19,11 ) 

59 end 


MIRROR$ 標準 関数 
mirror ゃ (St) 
str 

戻り 値 str 


文字 列 st の 並び を 逆転 し て 返し ます 。 


19 /* mirror$ sample 

29 str as 

39 as="personal vorkstation X689099 
49 print mirror$(as ) 

59 end 
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MOUSE MOUSE 


| 書式 | mouse(ch) 
char 


機 能 マウ スカ ー ソ ル の 表示 、 マ ウス の 初期 化 な ど を 行い ます 。 戻り 値 は 、ch= 3 以外 で 
は 、 通 常 0、 エ ラー の と き は ーー 1 を 返し ます 。 


2 放 。 Sieps 0 = ニ マ ウス の 初期 化 ( 用 ボタ ン 専 有 …… ソ フト キー ボー ド 使 用 可 ) 
1 ニ マ ウス カー ソル を 表示 する 
2 ニ マ ウス カー ソル を 消す 
3 ニー マウ スカ ー ソ ル の 表示 状態 を 返す (表示 し て いる …ー 1 、 表 示し 


て いな い …・0 ) 
4 = マウ ス の 初期 化 ( 右 ポ タン 開放 …… ソ フト キー ポー ド 使 用 不 

可 ) 
19 /* mouse sample 
29 char ao 
30 mouse(09) 
4 の while -1 
59 print "マウ ス の 初期 化 --->9 
69 prin も t "マウ スカ ー ソ ル の 表示 --->1 
79 print "マウ スカ ー ソ ル の 消去 --->2 
89 print "マウ スカ ー ソ ル の 表示 状態 --->3 
30 print "ソフ トキ ー ボ ポー ド の 表示 禁止 --->4 
1099 inpu も t "いずれ か の 値 を 入力 し て 下さ い (9---4)":ac 
119 switoh ao 
120 case 9:prin も t "マウ ス の 初期 化 を し まし た ":mouse(9):break 
1309 case 1:prin も t "マウ スカ ー ソ ル を 表示 し まし た ":mouse(1):break 
149 case 2:prin も t "マウ スカ ー ソ ル を 消去 し まし た ":mouse(2):break 
156 case 3:print "マウ スカ ー ソ ル の 表示 状態 =====": 
169 1f mouse(3)<>9 then print "マウ スカ ー ソ ル 表 示 中 ":break 
179 if mouse(3)= の 9 then prin も t "マウ スカ ー ソ ル 消 去 中 ":break 
180 case 4:print "ソフ トキ ー ボ ー ド を 表示 禁止 に し まし た ":mouse(4) 
199 endswitoh 
299 endvhile 
219 end 
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MSAREA MOUSE 


msarea (x1,y1,x2,y2) 
int 
int 


マウ スカ ー ソ ル の 移動 範囲 を 指定 し ます 。 範囲 は 表示 画面 サイ ズ に よっ て 決ま り ま す 。 
戻り 値 は 通常 0 、 エ ラー の と き は ーー 1 を 返し ます 。 


区 ese2oees 始点 X 座 禁 
9 Revsoes 始点 Y 座 禁 
放 ozhooeu0 終点 X 座 標 
2 mm 終点 Y 座 禁 


19 /#* msarea sample 

29 soreen 2,9,1,1 

39 vpage(1 ) 

49 mouse( の ) 

59 msarea(9,9,699,490) 

69 box(9,9,6099,499,15,&HFFFF ) 

79 mouse(1) 

8 の 9 locate 1,5 

90 print "(の ,9)<--->(699,499) の 範囲 で マウ ス を 動か し て くだ さい !" 
199 end 
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MSBTN MOUSE 


| 書式 | msbtn(n, b, t) 


引 数 char (n, b) , int(t) 
戻り 値 int 


マウ スポ ボタ ン が 指定 され た 状態 に な る まで の 時 間 を 返し ます 。 戻り 値 は 、0 な ら ば ド 
ラッ グ さ れ た こと を 示し 、 一 1 な ら ば 指定 され た 待ち 時 間 の 最大 値 t を 越え を た こと を 示 


し ます 。 
1 POT 待つ ボタ ン の 状態 
0 ニモ ボタ ン が 離さ れる まで 
1 ニモ ボタ ン が 押さ れる まで 
35DOGGP ボタ ン の 左右 
0 = 左 
三 右 
伯 uocvoovrom 待ち 時 間 の 最大 値 (0、1 で ずっ と 待つ ) 


状態 が 変わ れ ば これ は リセ ッ ト さ れ ま す 。 


10 /#* msbtn sample 

み 0 Sm も ai=1. 51, ed, e ま も な も hi 11 34 ます“ 

39 screen 2.9,1,1 

49 vpage(1) 

59 mouse(0) 

69 msarea(9,.9,767,511) 

79 box(9,9,767,511.15,&HFFFF ) 

89 mouse(1) 

99 locate 5,10 

199 print "マウ ス の 左 ボ タン を ダブ ルク リッ ク し て くだ さい 。 十 字 の 線 が 動き ます 。! 


119 while ai<>9 


120 msstat(bi,ci,di,ei ) 

139 if di<>-1 then continue 

1409 fi=msbtn(9,9,80) 

150 if fi<1 or fi>79 then oontinue 
160 fi=msbtn( 1,9,80) 

1709 if fi<19 or fi>79 then continue 
180 fi=msbtn(9,09,80) 

190 3f fi く <19 or fi>70 then continue 
200 line(ii,.9,11i,511.9,&HFFFF ) 

210 Line(9,Jj1,767,)1,0,&HFFFF ) 

220 box(9.9,767.511,15,」&HFFFF ) 

230 mspos(gi,hi ) 

240 Line(gi,9。gi,511,」12,&HFFFF ) 

259 1ine(9,hi,767,hi,12,&HFFFF ) 

260 11=gi 

270 軸 お は 2000! 

289 endehile 

290 end 
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MOUSE 


mspos(x, ) 

int 型 変数 名 

int 

マウ スカ ー ソ ル の 座標 を int 型 変数 x、y に 返し ます 。 


19 /* mspos sample 

の の せ n も aa1 ミ 1 ID GS 

3 の 9 screen 2,9,1,1 

49 vpage(1 ) 

59 mouse(9) 

69 msarea(9,9,767,511) 

7 の 9 box(9,9,767,511,15,&HFFFF ) 
89 mouse(1) 

99 1ocate 19,19,9 


199 print "move mouse cursor!(9,9)<--->(767,511)" 
119 while ai< く > の 

1209 mSspos(bi,oi ) 

139 1ocate 19,11,0 

149 Print "mouse Cursor (X) = "jibi 

1509 1ocate 19,12,9 

169 print "mouse cursor (Y) = "ioi 

179 endwhile 

189 end 
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MSSTAT MOUSE 


| 書式 | msstat(x, y, bl, br) 
int 型 変数 名 
マウ ス の 状態 を int 型 変数 x、y、bl、br に 返し ます 。 
OECD 方 向 の 相対 移動 量 ( 一 128 一 127) 
NdcRcnotokane Y 方 向 の 相対 移動 量 ( 一 128 一 127) 
bl ……… 左 ボ タン の 状態 (押さ れ て いれ ば ー 1 、 押 され て いな けれ ば 0 を 返 
す ) 
br ……… 右 ボ タン の 状態 (押さ れ て いれ ば ー 1 、 押 され て いな けれ ば 0 を 返 
す ) 


19 /* msstat sample 

2 の int ai=1 ,D1 Ci ,di。ei 

39 screen 2,.9,1,1 

49 vjjage(1 ) 

5C mouse(9) 

69 msarea(9,9,767,511) 

79 box(9,.9,767.511.15,&HFFFF ) 
89 mouse(1 ) 

99 locate 7.19,.9 

199 print "(の 9,9)<--->(767,511) の 範囲 で て マセ ウス を 動か し て くだ さい !" 
119 chile ai< く > 


1209 msstat(bi,ci,di,ei ) 

130 locate 7,11.0 

140 print "マウ ス の 方 向 の 相対 移動 量 (-128---127)---> "jibi 

150 locate 7,12,0 

169 print "マウ ス の Y 方 向 の 相対 移動 量 (-128---127)---> "joi 

1709 locate 7,13.9 

189 print "マウ ス の 左 ボ タン の 状態 ---> 『: 

199 if di<> の @ then print "押さ れ て いま す  " else print "押さ れ て いま せん " 
290 1ocate 7,14,.9 

219 BXtE リマ ウス の 大 ボ ポタ ジ の 状 : 態 ---2 "5 

220 if ei<>9 then print "押さ れ て いま す  " else print "押さ れ て いま せん " 
239 endehile 

249 end 


164 


マ 


-ALLOC MUSIC 


較 
半 


測 | | 
鹿 | | 藻 


漠 
q ト 
CC 


m alloc(t, s) 
char (t) , int (S) 
int 


呈 定 され た トラ ッ ク t の トラ ッ ク バ ッ フ ァ を 確保 し ます 。 同時 に 、 ト ラッ ク 内 の テー タ 
は クリ ア さ れ ま す 。 戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き は ー 1 を 返し ます 。 


Eee トラ ッ ク 番 号 (1 一 80) 
See トラ ッ ク バ ッ フ ァ の サイ ズ (1 一 65536 バ イト ) 
な お 、 総 トラ ッ ク バ パッ フ ァ サイ ズ (それ ぞ れ の トラ ッ ク に 割り あて られ て いる トラ ッ 
ク バ ッ フ ァ の 総合 計 ) は 、 CONFIG.SYS フ ァイル 内 の OPMDRV.X の 後に 指定 し て 、 
再度 シス テム 起動 する こと に より 変更 で きま す 。 何 も 指定 し な い 場合 は 、 約 64KB の 総 
トラ ッ ク バ ッ フ ァ が 確保 され ます 。 
DEVICE = \SYS\OPMDRV.X #nnn 
(nnn : 総 ト ラ ッ ク バ ッ フ ァ サ イズ [単位 : KB] ) 


M_ASSIGN MUSIC 


エ 


り 値 


葉 | | 測 | | 馬 | | 障 
3 中 | | 員 


m assign(c, t) 
char 
int 


FM 音源 の 指定 され た チャ ン ネ ル c に 、 ト ラッ ク { を 割り ふり ます 。 戻り 値 と し て 、 正常 
の と き は 0 、 エ ラー の と き は ーー 1 を 返し ます 。 


CC ーー ドー チャ ン ネ ル 番 号 (1 一 8 ) 
Eee トラ ッ ク 番 号 (1 一 80) 


複数 の チャ ン ネ ル に 同一 の トラ ッ ク を 割り あて る と 、 そ れ ぞ れ 同 じ 楽 譜 デ ー タ を 演 大 
し ます 。 ま た 、 複 数 の トラ ッ ク を 1 つの チャ ン ネ ル に 割り あて る と 、 最も 新しく 割り 
ふら れ た トラ ッ ク の 楽譜 デー タ を 演奏 し ます 。 

デフ ォ ル ト 値 は 、 チ ャ ン ネ ル 1 か ら チ ャ ン ネ ル 8 が 、 そ れ ぞ れ ト ラッ ク 1] か ら ト ラッ 
ク 8 に 対応 し ます 。 


165 


第 4 章 リフ ァ レ ンス 


M_CONT MUSIC 


書 式 


+ 


m cont (【c1] 〔c2) (c3) (c4) (c5) (c6) (c7) (Lc8〕) 

char 

int 

c1 か ら c8 で 指定 され た チャ ン ネ ル に お いて 、 一 時 停止 し た 演奏 を 再開 し ます 。 チ ャ ン 
ネル を すべ て 省略 する と 、 現 在 一 時 停止 し て いる すべ て の チャ ン ネ ル の 演奏 を 再開 し 


ます 。 
戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き は 一 1 を 返し ます 。 


m stop 


M_FREE MUSIC 


m free(t) 

char 

int 

呈 定 さき され た トラ ッ ク t の トラ ッ ク バ ッ フ ァ の 残り の バイ ト 数 を 返し ます 。 


代 2S2cksiiaos トラ ッ ク 番 号 (1 一 80) 
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M_INIT 


MUSIC 


書 式 


機 能 


m init( ) 


FM 音源 (トラ ッ ク の 楽譜 デー タ 、 音 色 ) を 初期 化し ます 。 


M_PLAY IS 


書 式 


m_play (【c1) (Lc2] 〔c3) 〔c4) (Lc5) (Lc6) (c7) し c8)) 


char 
int 


c1 か ら c8 で 指定 され た チャ ン ネ ル に 割り あて られ た トラ ッ ク の 楽譜 デー タ を 演奏 し 
ます 。 チ ャ ン ネ ル を すべ て 省略 する と 、 全 チャ ン ネ ル を 演奏 し ます 。 
戻り 値 と し て 、 正 常 の と き は 0 、 エ ラー の と き は ーー 1 を 返し ます 。 


19 /* MUSTC SAMPLE 

2 の / ネ * 

39 /* SYMPHONIA NO.143 in Bb major J,.S BACH 
409 / キ 

59 str A$[255]1 

69 /* PART 1 

79 m init( ) 

89 for 1T=1 to 6 : m _a1loc(T,2000 ) :next 

99 ffor IT=1 to 6 : m _assign(T,1 ) :next 


109 / ネ * 

119 m trk(1,"Q7 @34 V9 04 T66" ) /* TRUMPET 
129 m trk(2,"Q7 @35 V19 04 『") /* HORN 
139 m trk(3,"Q7 @37 V19 03 ") /* TUBA 
149 m trk(4,"Q8 @6 V8 05 "0 /* CEMBALO 
159 m trk(5,"Q8 @6  V8 0O5 『") /* CEMBALO 
169 m trk(6,"Q8 @6  V8 0⑩4 ") /* CEMBALO 


179 /* PART 1 

189 A$="L16 B-4&B-B-AGFE8G8DE-FE8 : <R8F8&FE-DC>B-8<D8>AB-<C8" 
199 A$=A$+ ">F<FD>B- く <E-8G8&GE-C>A&A8<F8 : D4E4F8>B-4A8" 

299 TRK_WRT(1) :TRK _WRT(4) 

219 /* PART 2 

229 A$="L16R1 : >B-FB-<DC8E-8&E-8DE {FEFEFEFE)8 &ED32E32" 
239 A$=A$+"F4G8B-8E-8G8<C8C8& : C>FB-<D>G8B-8A8DE-FGE-F" 
249 TRK _WRT(2):TRK _WRT(5) 

259 /* PART 3 

269 A$= "8 B-<DC>B-AGEE- : D4FE4G4 く <C4" 

279 A$=A$+"D4&L16DD>B-G<C8E-8&E-C>AF : B-4&B-B-AGFE8G8DE-F8" 
289 TRK _WRT(3) :TRK _WRT(6) 

299 m pl1ay( ) 

399 end 

31 の 9 funo TRK _WRT(T) 

3209 m trk(T,A$) 

339 endfunc 
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M_STAT 


書 式 


数 


葉 | | 測 | | 
鼓 | | 融 | | 問 


m stat(c) 


char 


int 


MUSIC 


指定 され た チャ ン ネ ル c が 、 演奏 中 か どう か 調べ 、 演奏 中 な ら 1、 そ う で な けれ ば 0 を 
返し ます 。 チャ ン ネ ル c を 省略 する と 、 返さ れる バイ ト 値 の ビッ ト 0 一 ビッ ト 7 が チャ 


ン ネ ル 1 一 8 に 対応 し 、 0 な ら 停 止 中 、 


= を 返し ます 。 


19 
29 
39 
49 
59 
60 
709 
80 
99 
1099 
110 
120 
130 
149 
150 
169 
170 
186 
199 


CS2eeee ssss チャ ン ネ ル 番 号 (1 一 8) 


/* m stat sample 
m init() 

m allooc(1,109090) 
m alloc(2,10090) 
m asSign(2,1 ) 

m _aSSign(3,1) 

m _ assSign(4,2) 


m trk(1,"112 orocrdereeredrcdrecro> 玉 く Tr”) 
m trk(1," e3 rfgrggrgfrefrge3 rg") 
m trk(1," e3 rge3 rgergerge3 rr") 
m trk(2,"14 rrrrrrrr") 

m play(1,4) 

while m stat(4) 

endwhile 

m play(2,4) 

while m stat(4) 

endwhile 

m play(3,4) 

end 
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1 な ら 演 奏 中 で す 。 ま た 、 エ ラー の と き は 


M_STOP 


引 数 
戻り 値 
機 能 

っ 


m stop(【c1) 〔c2] 〔c3) 〔c4) (c5) (c6) (c7 (Lc8)) 


char 


int 


MUSIC 


c1 か ら c8 で 指定 され た チャ ン ネ ル の 演奏 を 一 時 停止 し ます 。 チャ ン ネ ル を すべ て 省略 
する と 、 全 チャ ン ネ ル の 演奏 を 一 時 停止 し ます 。 
戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き は 一 1 を 返し ます 。 


m Cont 

19 / ネ * 

20 /* musio sample 

30 /* "お お 、 ス ザン ナ !!" S.C.Foster 
40 / キ * 

59 str as,bs,cs,ds,part[2551 


m init( ) 

m _ alloo(1,2000 ) 

m assign(1,1) 

1input 。 き 8 デー タ の 
1input "テン ボ ポ を 入力 
part="@" PR o4 v9 
er trk(part ) 
part='"g&a b8<d8d8e8> <d8>b8g8.a b8b8a8g8 a1.ga&" 
wr_trkK(part) 

part="b8<d8d8.e> <d8>b8g8.a& b8b8a8a8 品 4.ga&" 
wur_trk(part) 

part="b8<d8d8.e> <d8>b8g8.a b8b8a8g8 a4r8ga&" 
wr_trk(part ) 

part="b8<d8d8e8> <d8.>bg8.a bb8.a8.a g4r4" 
wr_trk(part ) 

part="<o4c4> <e8e4e8> <d8.d>b8g8 a4r8ga&" 

wr trK(part ) 

part="b8<d8d8.e> <d8>b8g8a8 b8b8a8.a g4r8" 
wr_trkK(jpart) 

m_play() 

1input "演奏 を 停止 し ます か <Y/n>--->?"iGS 

if cs="n" then end 

m stop( ) 

linput "演奏 を 再開 し ます か < く Y/n>--->?"jds 

if ds="y" then m_cont( ) 

end 

func wr trk(partistr ) 

m trk(1,part) 

endfunc 


記 い (32 て 209)--->?"jbs 
if 116PO ポ も も bB る 
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番号 を 入力 し て 下さ い (1~ て 68)--->?"jas 
し で くださ 


第 4 章 リフ ァ レ ンス 


M_TEMPO 


MUSIC 


m tempo (te) 
char 


int 


テン ボ fte を 1 分 間 に 4 分 音符 を 何 拍 打 つか で 指定 し ます 。 テ ン ポ te は 32 一 200 の 範囲 


で す 。 

戻り 値 と し て 、 正 常 の と き は 0 、 エ ラー の と き は ー 1 を 返し ます 。 
19 / ネ 

29 /* m tempo sample 

3 お お 。 迷 が ザ シ ザ 892 S.C.Foster 

49 / キ 

59 int ai 


60 char ac 

79 str as,part[2551 
8 の 9 m init() 

99 m alloc(1,2000 ) 
199 m assign(1,1) 


119 linput "音色 デー タ の 番号 を 入力 し て 下さ い (1~68)--->?"jas 


129 jnput "テン ボ を 入力 し て くだ さい (32~209)--->"iao 


139 part="@"+as+" o4 v9 q7 116" 
140 wr trk(part) 


159 part="g&a b8<d8d8e8> <d8>b8g8.a b8b8a8g8 a4.ga&" 


160 er trk(part) 

179 part="b8<d8d8.e> <d8>b8g8.a& b8b8a8a8 g4.ga&" 
180 wr trk(part) 

199 part="b8<d8d8.e> <d8>b8g8.a b8b8a8g8 a4r8ga&" 
299 cr trk(part ) 

219 part="b8<d8d8e8> <d8.>bg8.a bb8.a8.a g4r4" 
220 cr trk(part) 

239 part="<o4c4> <e8e4e8> <d8.d>b8g8 a4r8ga&" 

240 nwr trkK(part ) 

259 part="b8<d8d8.e> <d8>b8g8a8 b8b8a8.a gg4r8" 
269 wr trK(part) 

279 m_ play() 

280 for ai=9 to 309909:next 

299 m tempo(ao) 

399 for ai= の to 49999:nex も 

319 m tempo( 120) 

320 end 

330 func wr trk(partistr ) 

349 m trk(1,part) 

359 endfuno 
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M_TRK MUSIC 


m trk(t, st) 


char (t) , str (st) 


機 能 MML に よる 楽譜 デー タ を トラ ッ ク t に 書き 込み ます 。 厳密 に いう と 、 ト ラッ ク t に 楽譜 
デー タ を 追加 し て いき ます 。 戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き は 1 を 返 
し ます 。 MML に つい て は 、「2.2 FM 音源 制御 」 を 参照 し て くだ さい 。 


CCO2J20 トラ ッ ク 番 号 1 ユ 一 80) 
に COO MM (テー ジッ クマ クロ ラウ ダー ジ ) デー デ 


M_VGET MUSIC 


書 式 m vget (vo, ca) 
char (vo) , char 型 二 次 元 (4 ,10) 配 列 名 (ca) 
mt 

機能 音色 デー タ を 配列 ca に 読み 込み ます 。 戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き 


は ーー1 を 返し ます 。 配列 ca の デー タ の 詳細 に つい て は 、 資 料 編 「FM 音 源 の 音色 デー タ 
(レジ スタ )」 を 参照 し て くだ さい 。 


VO < 音色 番号 (1 一 200)。 1 一 68 は 、 登 録 済 
年 :3noeo 音色 デー タ を 格納 する た め の char 型 二 次 元 配列 名 。 配 列 の 次 元 は 
( 4 * 10)。 
っ m vset 


19 /* m vget sample 
2 の int ai,bi 
39 char ao 
49 dim char aoa(4.10) 
59 input "音色 デー タ の 番号 を 入力 し て くだ さい (1 て 68)--->":ac 
69 cls 
79 print "音色 デー タ の 番号 ("iac:") の デー タ で す " 
8 の print 
99 m vget(ac,aoa ) 
199 for ai= の to 10 


110 print 

129 正 o ぶ bi= の O を も o 4 

139 Print uSin 戸 「##### "iaCa(bi,ai)j:Drint " 
140 mext 

159 ne ヾ も 

169 end 
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M_VSET MUSIC 


中 
2 


m yset (Vo, ca) 


引 数 char (vo), char 型 二 次 元 (4 ,10) 配 列 名 (ca) 
機 能 配列 ca に 格納 され て いる 音色 デー タ を 指定 され た 音色 番号 yo の メモ リバ ッ フ ァ に 登 
録 し ます 。 戻り 値 と し て 、 正 常 の と き は 0 、 エ ラー の と き は - 1 を 返し ます 。 配列 ca 
の デー タ の 詳細 に つい て は 、 資 料 編 「FM 音 源 の 音色 デー タ (レジ スタ )」 を 参照 し て < 
だ さい 。 
VO の 音色 番号 (1 一 200)。 1 一 68 は 登録 済 。 
Ca ee 音色 デー タ が 格納 され て いる char 型 二 溢 元 配列 名 。 配 列 の 次 元 は 
(4 ,10)。 
音色 デー タ の 配列 形式 
0 1 一 4 (オペ レー タ ) 
0 | フィ ー ド バッ ク プ アル ゴリ ズム (0 一 63) | AR (0 一 31) 
1 | スロ ッ ト マ スク (0-15) | D1R (0-31) 
2 | ウエ ー デ フォ ー ム (0 一 3) | D2R (0 一 31) 
9 ジグ シク ググ (0、1) | RR (0 一 15) 
4 | スピ ー ド (0-255) | D1L (0 一 15) 
5 | PMD (0⑩-127) | TL 0127) 
6 | AMD (0 一 127) | KS (0 一 3) 
7 | PMS (0-?) | MUL (0-15) 
8 | AMS (Oz3) | DT1 (0 一 7) 
9 | L、RPAN (0-3) | DT2 (0-3) 
10 AMS イ ネー ブル (0、1) 
な お 、 オ ペレ ー タ 1 は M1 (モジ ュ レ ー タ 1)、 オ ペレ ー タ 2 は C1 (キャ リア 1、 オ ペレ 
ー タ 3 は M2 (モジ ュ レ ー タ 2)、 お よび オペ レー タ 4 は C2 (キャ リア 2) に 対応 し て いま 
あら 
2 m vget 
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NAME っ 


name "【 く ドラ イブ 名 >) く ファ イル 名 1 >”, "< ファ イル 名 2 2" 
na・ 


指定 し た ドラ イブ の ファ イル 名 く < ファ イル 名 1 > を く < ファ イル 名 2 > に 変更 し ます 。< ド 
ライ ブ 名 >、< フ ァイル 名 > に つい て の 詳細 は 、「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 
参照 し て くだ さい 。 


用 例 name "a:\test.bas","a:\test.dat" 


NEW コマ ンド 


書 式 new 

機 能 メモ リ に ある プロ グラ ム を 消去 し 、 す べ て の 変数 を 初期 化し ます 。 
new 命 令 を 実行 する と 、 メ モリ に ある プロ グラ ム は すべ て 消去 され 、 定 義 さ れ て いる 変 
数 も すべ て 初期 化 さ きれ ま す 。 


+ 


delete 
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OCT 中 標準 関数 


[生玉 | oesG 
int 
戻り 値 str 


機能 整数 値 を 8 進 表 現 の 文字 列 に 変換 し 返し ます 。 な お 、 上 位 の "0 " は 取り 除 か れ ま 


和 958 
う bin$、hex$ 
| 10 /* oot$ samp1e 
用 例 29 int ai,bi 
39 ai=-255 


49 bi=1099542309 

5 の print oct$(ai ) 

69 print oot$( bi ) 

7 の print oot$(ai ) +oot$( bi ) 
89 end 
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GRAPH 


paint(x, y, D) 
int 
void 


グラ フィ ッ ク 画 面 上 の 任意 の 単色 領域 内 を 塗り つぶ し ます 。 
window 関 数 で 指定 され た クリ ッ ピ ング エリ ア 外 の 領域 は 無視 され ます 。 


秒 9RPvorcotoro 塗り つぶ し た い 領域 内 の 1 点 の X 座 標 
Yo 湊 り つぶ し た い 領 域内 の 1 点 の Y 座 標 
DO の > パレ ッ ト コ ー ド ( 色 ) 


x、 y は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 また 、 パレット コー ド p は 
0 か ら 65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サ 
イズ お よび 色 モ ー ド に より ます 。 


19 /* paint sample 

29 int ai,bi,ci,di,ei,f ュ 
39 screen 1,3,1,1 

49 vpage(1 ) 

59 for ai= の to 50 


69 bi=rand( ) mod 512 
70 ci=rand( ) mod 512 
89 di=rand( ) mod 2090 
99 ei=rnd( )*65535 
190 cirole(bi,ci,di,e1,9,369,40909) 
119 next 

129 for ai= の to 390 

130 P( ) 

149 next 

159 wipe( ) 

169 for ai= の to 59 

170 bi =rand( ) mod 512 
180 ci=rand( ) mod 512 
199 di=rand( ) mod 512 
290 ei=rand( ) mod 512 
219 fi=rnd( )*65535 
220 box(bi,ci,di,ei,fi,&HFFEF ) 
239 next 

249 for ai= の 9 to 3099 

250 p( ) 

269 next 

279 end 

289 funoc p() 


299 paint(rnd()*511,rnd()*S511,rnd( )*65535 ) 
399 endfuno 
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PALET 「 GRAPH 


書 式 palet (D.C) 


mt 


戻り 値 void 


グラ フィ ッ ク 画 面 の 各 パ レッ ト に カラ ー コ ー ド <c を 割り あて ます 。 


DO の "の ッ パ レッ トコ ー ド (0 一 255) 
Cement カラ ー コ ー ド (0 一 65535) 
この パレ ッ ト コ ー ド p の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ お よび 色 モ ー ド に 
より ます 。 


な お 、 グ ラフ ィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド が 512xX512、65536 色 の 場合 は 、 
パレ ッ ト コ ー ド p と カラ ー コ ー ド c は 1 対 1 に 対応 し 、 同 値 と し て 扱わ れる の で 、 こ の 
palet 関 数 は 無効 と な り ま す 。 こ の 場合 や レッ トコ ー ド p は 0 か ら 65535 の 値 を と る こ 
と が ぐ き まず 

/* palet sample 

int ai=15,bi,oi ,d ュ 

3 の dim int aia(7) 


4 の screen 2,9,1,1 
59 vpage(1) 


ト う ルー 
S ぐ ざ 


用 例 


69 fi11(199,199,667,411,15):aia(9)=65535 /* color oode = 65535 
79 fi11(120,129,647,391,13):aia(1)=65473 /* color oode = 65473 
89 fi11(140,149,627,371,11):aia(2)=63551 /* color code = 63551 
9 の fi11(169,169,697,351,9):aia(3)=63489 /* color code = 63489 
199 fi]1(189,189,587,331,7) :aia(4)=2947 /* color oode = 26047 
119 fi11(299,299,567,311,5):aia(5)=1985 /* color oode = 1985 
129 fi11(229,229,547,291,3):aia(6)=63 /* color oode = 63 
139 fi11(249,249,527,271,1):aia(7)=1 /* color oode = 1 


149 while -1 

159 ci=bi mod 8 

169 palet(ai,aia(oi ) ) 

179 if ai=] then ai=15:continue 
18 の 9 ai=ai-2 

199 bi=bi+1 

209 for di=9 to 399 

210 next 

220 endwhile 

239 end 


準 関数 


用 例 


pi(〔n]) 
float 
float 


円 周 率 の n 倍 を 返し ます 。 数値 n を 省略 する と n ニ 1 と 見 な され ます 。 


19 /* pi sample 

29 print pi( ) 

39 print pi(2) 

49 print pi(4.675#) 
59 end 
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POINT GRAPH 


書 式 point (x,Y) 


戻り 値 int 

機 能 グラ フィ ッ ク 画 面 上 の ドッ ト の パレ ッ ト コ ー ド を 返し ます 。 
CCCCCLCEEP ドッ ト の XX 座標 
Yoo mt ドッ ト の Y 座 標 


x、y は window 関 数 で 指定 され た クリ ッ ピ ング エリ ア 内 の 値 を と る こと が で きま す 。 
戻り 値 と し て 、0 か ら 65535 の パレ ッ ト コ ー ド を 返し ます 。 た だ し 、 その パレ ッ ト コ ー 
ド の 最大 値 は ダラ フィ ッ ク 画 面 の 実 画面 サイ ズ お よび 色 モ ー ド に より ます 。 


/* point sample 

in も ai=255,bi=255 , oi 。dQi=1 ei=1 , ff 
3 の scoreen 2,9,1,1 

49 vpage(1) 

5 の 1ine(199,1099,667,199,3,&HEFFEFF ) 
69 line(199,199,100,411,9,&HEFFFF ) 
79 line(199,411,667,411,11,&HFFFF ) 
89 1ine(667,199,667,411,13,&HFFFF ) 
99 while -1 

199 ai=ai+di 

119 bi=bi+ei 

129 oi=point(ai,bi ) 

139 switoh oi 


ト う ルー 
S ぐ ダマ 


用 例 


140 case 3:ei=1: 了 fi=1:break 
159 case 9:di=1:fi=1:break 
160 case 11:ei=-1:fi=1:break 
170 caSse 13:di=-1:fi=1:break 


189 endswitoh 

199 if fi=1 then fi= の :oontinue 
299 pset(ai,bi , 5 ) 

219 endwhile 

229 end 
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DOS 
int 
テキ スト 画面 の 現在 の カー ソル の x 座 標 を 返し ます 。 代 入 す る こと は で きま せん 。 


19 /* pos sample 
29 print "X689090 


3 の print "X68099 HD 38 
4 の print pos 
59 end 


準 関数 


pow(n1 .n2) 
float 
float 


数 値 n1 の n2 乗 の 計算 を し ます 。n1= ニ 0 か つ n2 く 0 の 場合 と nl1 く 0 か つ n2 が 整数 で な い 場 
低 は 、 中 ー と な り ま す 。 


19 /* pow sample 

20 float af,bf,ocf,df 
39 af=5.3# 

49 bf=2.8# 

59 of=2.23# 

69 df=-2.87# 

79 print pow(af,Df ) 
89 print pow(cf,df ) 
99 end 
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PRINT ステ ー ト メン ト 


Jprint 〔【using < 書式 制御 文字 列 >]〔< 式 >. .. 〕 
Jp. 


テキ スト 画面 に 文字 列 や 数 値 を 表示 し ます 。 

print 命 令 に 続け て 数 値 や 文字 列 を 指定 する と 、 そ の 数 値 、 文字 列 が テキ スト 画面 に 表 
示さ れ ま す 。 ま た 、 数 値 型 変数 や str 型 変数 が 指定 され る と 、 そ れ ら の 変数 に 代入 され 
て いる 数 値 や 文字 列 が テキ スト 画面 に 表示 され ます 。 

print 命 令 だ け を 指定 する と 改行 が 行わ れ ま す 。 

数 値 を 表示 する 場合 、 そ の 後ろ に 必ず 空白 が 1 つ 入 り ま す 。 ま た 、 数 値 の 前 に は 符号 
用 の 桁 が 用 意 さ れ 、 プ ラス ( 十 ) の と き に は 空白 、 マ イナ ス (一) の と き に は マイ ナス 待 
号 ( 一 ) が 表示 され ます 。 

複数 の デー タ を 表示 する 場合 、 それ ら の 区 切り と し て 、 カ ンマ ( , )、 セ ミ コロ ン ( : ) 
が 使え ます 。 カ ンマ を 使う と print 命 令 の 後ろ の の デー タ は テキ スト 画面 の 一 番 左 の 列 に 
表示 され 、8 桁 ご と に 区 切っ て 表示 され ます 。 区 切り に セミ コロ ン を 使う と print 命 令 
の 後ろ の デー タ が つなが っ て テキ スト 画面 に 表示 され ます 。 一 番 最 後 の デ ゲー タ の 後ろ 
に セミ コロ ン を 置く と 、 つ ぎの print 文 の デー タ が 前 の デー タ に つなが っ て 表示 され ま 
すず 。 

lprint 命 令 を 使う と 、 テ キス ト 画 面 の 代わ り に プリ ンタ に 出力 する こと が で きま す 。 
print 命 令 の 省略 形 と し て ? (疑問 符 ) を 使う こと が で きま す 。 

print 命 令 の 後に 、using と 書式 指定 子 を 続け る こと に よっ て 、 様 々 な フォ ー マ ッ ト で デ 
ー タ を 表示 、 出 力 す る こと が で きま す 。 

print using 命令 を 使用 し た 場合 は 、 複数 デー タ を 扱う こと は で きま せん 。 必ず 、 1 つ 
の デー ググ に な り ま す 。 


1 . 数 値 型 

# 表示 する 数 値 の 桁 数 を 指定 し ます 。 数 値 の 桁 数 が 、 指 定 さ れ た 桁 数 
より 少な けれ ば 右 詰め で 表示 、 出 力 さ れ ま す 。 

8 小数 点 の 位置 を 指定 し ます 。 は み 出 す 部 分 は 四 捨 抹 入 され ます 。 

ーー 正負 の 符号 を つけ ます 。 人 負 の 符号 は 、# の 列 の 後に の み 設定 で きま 
も 

ネネ 空白 の 部 分 を アス タリ スク (* ) で 埋め ます 。 

\\ 数 値 の 先頭 に 議 マ ー ク を 付け ます 。 

ネネ ※\ 空 提 を アス タリ スク (*) で 埋め 、 先 頭 に 壮 マ ー ク を つけ ます 。 


OO 数 値 を 指数 表現 で 表示 、 出 力 し ます 。 
ト 3 桁 ご と に カン マ ( , ) を ふり ます 。 
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&( 空 白 )& 


@ 


3 . その 他 
(アン ダー スコ ア ) この 後 の 書式 指定 子 の 1 文字 は 、 単 な る 文字 と し て 表示 、 出 力 し ま 


文字 列 の 先頭 の 1 文字 の み を 表示 、 出 力 し ます 。 
文字 列 を を か ら 層 まで の 文字 数 分 だ け 表 示 、 出 力 し ます 。 
文字 列 を すべ て 表示 、 出 力 し ます 。 


す 。 


書式 指定 子 以外 の 文字 が あっ た 場合 は 、 そ の まま 表示 、 出 力 さ 


れ ま すう 3 


/* print using sample 


print 
print 
print 
print 
print 
Print 
print 
print 
print 
print 
print 
Print 
print 
print 
end 


uS1ng 
u81ng 
u81ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uSing 
uS1ng 


"75 SHARP X68900 
"& &") "SHARP X68009 
りす ####")689.4986# 

リ ######.#")680.9686# 

リキ #####.# す "1680.0286# 

リ #####.#ー")ー68 の .9586# 
リネ ネ ####.#":6809.186# 
まま すす ###.#「 :680.8786# 
リネ \ ま ##,# "1680.9886# 

リ #####,.#")6899.986# 

リリ #####。# て ーー "j1234.56# 
「\\###.。 一 ':689.0086# 

リ #####「)12345678.5488# 
"This is a @. ":"X68990 
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書 式 


り 値 


こ 上 | 4 り 
CC 癌 「T 
| 


用 例 


GRAPH 


DSet (x.y,D) 
int 
void 


グラ フィ ッ ク 画 面 上 に ドッ ト を 表示 し ます 。 


ーー ドー ツー ドッ ト の XX 座標 
YO" で "の ドッ ト の Y 座 標 
NISeeeixeeioxos ッ パ レッ トコ ー ド ( 色 ) 


x、y は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 ク リッ ピン グ エ リ ア に つ 
いて は window 関 数 で 指定 され た 男 胃 に な り ま す 。 ま た パレ ッ ト コ ー ド p は 0 か ら 
65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ お 
よび 色 モ ー ド に より ます 。 

10 /* pset sample 

20 int ai。bi。ei』di 

3 の 9 fl1oat af 

49 soreen 1,3,1,1 


59 vpage(1) 
69 for ai=1 to 5 


79 for bi= の 9 to 511 

89 af=(2*3.141#*bi ) /512*ai 
90 ci=255-sin(af )*2009 

169 di=rnd()*65535 

119 pSet(bi,ci,di ) 

129 next 

139 nex も 

149 end 
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GRAPH 


藻 | | 測 | | 世 | | 瞳 
告 | | 高 | | 甘 | | 


用 例 


 , 


put(x1,y1,x2,y2.,na) 


int(x1.y1,x2.y2) , 数 値 型 一 次 元 配 列 名 (na) 


Void 


get 関 数 で 読み 込ん を だ ドッ トバ パタ ー ン を 指定 され た 配列 na か ら 読 み 出 し て グラ フィ ッ 
ク 画面 上 の 指定 傾 域 に 表示 し ます 。 


5 Seece 始点 X 座 林 
y1 … の の … 始点 Y 座 禁 
2 終点 X 座 標 
2 終点 Y 座 標 
na ドッ トペ パタ ー ン が 格納 され て いる 数 値 型 一 次 元 配列 名 


x1、y1、x2、y2 は 、window 関 数 で 指定 され た 範囲 内 の 値 を と る こと が で きま す 。 ま 
た 、 配 列 na 内 の デー タ 構 造 に つい て は 、get 関 数 を 参照 し て くだ さい 。 

と くに 、put 関 数 を 実行 する 前 に あら か じ め pget 関 数 で 読み こん だ と き と 同 じ グ ラフ ィ 
ッ ク 画 面 の 実 画面 サイ ズ お よび 色 モ ー ド に し て 、 領 域 の 大 き さ や 配列 na の デー タ 型 、 添 
字 な ど は 同じ に な る よう に 指定 し て くだ さい 。 


get 


/* get & put sample 

int ai,bi,oi 

dim int aia(4899) ,bia(4899) 
screen 1,3,1,1 

vpage(1) 

rainbow( ) 

box( の 9,9,139,.69,65535 ,&HFFEFF ) 
get( の 9,9,139,69,aia ) 

/* gave gram data to file 
ai=fopen("a:test.dat", "co" ) 
fnrite(aia,4999,ai ) 

fclose(ai ) 
wipe( ) 
/* 1oad gram data from file 
ai=fopen("a:test.dat",」 "rv" ) 
Fread(bia,4999,a1i ) 
fclose(ai ) 
wipe( ) 
for ai= の to 19 
bi=ai*39 
put( bi , bi , bi+139,bi+69,bia ) 
for oi= の to 10999:next 
next 
end 
funoc rainbov( ) 
for ai= の to 63 
bi=ai*3 
cirole(69,69,ai,hsv( bi , 31,31 )+1 ,19,179,380) 
mex キ 
endfunc 


/* 149*70/2bytes 
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rand( ) 
int 
0 以上 32767 以 内 の 整数 型 乱数 を 返し ます 。 


randomize、rnd、srand 


19 /* rand sample 


2 int ai 

39 for ai=9 to 10 
49 print rand( ) 
59 next 

69 end 


RAINDOMIZE 標準 関数 


用 例 


randomize(i) 
int 
void 
rnd( ) 関 数 の 乱数 系 列 を 初期 化し ます 。 
1 陸 ACC2XS 乱数 の シー ド (一 32768 ミ i ミ 32767) 


rand、rnd、srand 


1 の /* randomize sample 
2 の 1n セ も ai。 も 1 
39 for ai= の 9 to 2 


49 randomize(int(32767*rnd( )-32768*rnd( ) ) ) 
59 for bi= の to 19 

669 print rnd( ) 

79 next 

89 next 

99 end 
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グ * < 注釈 文 y 


プロ グラ ム 中 に 注釈 を 入れ ます 。 
グ * に 続く 文字 列 は 、 プ ログ ラム 中 の 注釈 に な る だ け で 、 プ ログ ラム の 実行 に は まっ 
た く 関 係 し ませ ん 。 プ ログ ラム を 見 や すく する 覚え 書き と し て 使用 し て くだ さい 。 


1 の /* rem (/*) sample 

20 /* 

39 /* super persona] workstation 
4 の /* 

59 print "X680999 

69 end 


RENUM 陳 二 に 


renum 〔< 新 行 番号 >]〔, < 旧 行 番号 >〕〔, < 増分 >〕 
9 貞 


プロ グラ ム の 行 番 号 を 付け 直し ます 。 
< 新 行 番号 >、< 昌 分 〉 と も 、 省 略す る と 10 が 採用 され ます 。< 旧 行 番号 〉 を 指定 し な い 
と 、 そ の プロ グラ ム の 先頭 か ら 新しい 行 番号 に 変わ り ます 。 た と えば 、 


renum 
プロ グラ ム 全 体 の 行 番号 を 付け か えま す 。 新 し い 行 番号 は 10 か ら 始ま 
り 、。20、 30………・ と 付け られ ます 。 


renum 100,50 
行 番号 50 に 新しい 行 番号 と し て 100 が 付け られ 、 以 降 110、120…… と 付け 
直さ きれ ます 。 


renum 100,,100 
プロ グラ ム 全 体 の 行 番号 を 付け か えま す 。 新しい 行 番号 は 100 か ら 始ま 
り 、200、300…… と 付け られ ます 。 
renum 命 令 は 、goto 命 令 、gosub 命 令 、then 節 、else 節 な ど で 使 われ て いる 行 番号 は 
変更 し ませ ん 。 


185 


第 4 章 リフ ァ レ ンス 


REPEAT-CUNTIL ステ ー ト メン ト 


書 式 repeat 
< レーブ の 内 容 > 
until < 式 > 


機 能 < 式 > の 値 が 真 に な る まで 、 指 定 さ れ た く < レー プ の 内 容 > を 繰り 返し (レー プ ') ます 。 
繰り 返し の 終了 判定 は ツレ ー プ の 内 容 > の 実行 後に 行わ れ ま す 。 少な く と も 、1 回 は く レ 
ー プ の 内 容 > を 実行 し ます 。 


1 の /* repeat unti1] samp]e 
2 の int ai 


3 の repeat 

49 せ tmpu も "すす 2= リ "sai 
5 の 9 unti] ai=3 

69 print "ok!" 

7 end 


RGB GRAPH 


rgb(r, g,b) 


char 
r( 赤 )、g ( 緑 )、b( 青 ) の 成分 を 0 一 31 で 選び 、 カ ラー コー ド を 求め ます 。 な お 、 こ の 
rgh 関 数 に よっ て 得 ら れる カラ ー コ ー ド は 、0 一 65534 ま で の 偶数 値 に な り ます 。 し た 


が っ て 、 そ れ ぞ れ の 偶数 値 に 1 を 加え る こと で 0 一 65535 ま で の カラ ー コ ー ド を 指定 
で さま うす 


1 /* rgb sample 

2 の て nt gi。b1。 で 1 

39 screen 1,3,1,1 

49 vpage(1) 

59 1ocate 7,4:print "9" 

69 1oocate 4,17:print "Blue" 
79 1oocate 33,4:print "Green" 
89 1ocate 62,4:print "31" 

99 1ocate 6,30:print "31" 
199 for ai= の to 31 


110 1ocate 1,1:print "Red = "jai 

129 for bi=9 to 31 

136 for oi= の to 31 

149 fi11(bi*14+64,ci*14+64,bi*14+78,C1i*14+78,rgb(ai,bi,o1 ) 
1509 next 

169 next 

179 next 

189 end 
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RIGHT $ 6 


う 


right$ (st, 1) 

str(st), intG) 

str 

文字 列 st の 終り か ら 指 定 され た 文字 数 i 分 の 文字 列 を 取り 出し て 返し ます 。 


SE tt 元 の 文字 列 (文字 式 ) 
1 人 coniGo 取り 出し た い 文 字数 

文字 数 i は 、 1 か ら 255 の 値 を と り ま す 。 

指定 され た 文字 数 i が 文字 列 st の 総 文 字数 より 大 きい と き は 、 文 字 列 st を その まま 取り 

出し て 返し ます 。 指 定 され た 文字 数 1 が 、 0 また は 負 の 場合 は null 文 字 を 返し ます 。 


left$ 、mid$ 


19 /* right$ sample 

29 str as 

39 as="persona] workstation X680999 
49 print right$(as,9) 

59 end 


桂 準 関数 


rnd( ) 
float 
0 以上 1 未満 の 実数 型 乱 数 を 返し ます 。 


rand、randomize、srand 


1 の /* rnd sample 


2 int ai 

39 for ai= の to 109 
49 print rnd() 
509 next 

69 end 
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RUN 


run 〔 く < 行 番号 2 
run “〔[ く ドラ イブ 名 >] く < ファ イル 名 >“ 
まま 


メモ リ に ある プロ グラ ム を 実行 し ます 。 

く 行 番号 > を 省略 する と 、 先 頭 行か ら プ ログ ラム を 実 f 
ドラ イブ 名 、 フ ァイル 名 が 指定 され た 場合 は 、 指 定 
まぁ 

< ドラ イブ 名 >、 く < ファ イル 名 > に つい て は 「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 参照 
し じ で くだ さい 。 

途中 で プロ グラ ム の 実行 を 中 止 し た いと き は 、|CTRL|+| C | キー また は 
| BREAK | キー を 押し ます 。 


困 ル ます 。 
され た ファ イル を ロー ド し て 実行 


ジン ド 


ユ 


Savet@〕 "ドラ イブ 名 >] く ファ イル 名 >"〔, < 行 番号 1>](【 一 〔 く 行 番号 2>〕〕 
Sa . 


メモ リ 上 の BASIC プ ログ ラム を 、 セ ー ブ し ます 。 
Save で は プロ グラ ム を アス キー 形式 で セー ブ プ し ます 。 セ ー プ され る 行 番号 の 範囲 は 、 
list 命 令 と 同様 に 行わ れ ま す 。 save@ は 、 行 番号 を 省略 し た 形 で プロ グラ ム が セー プ ブ さ 
示 ま す 。 
く < ドラ イブ 名 >、 く < ファ イル 名 > に つい て は 「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 参照 
し て くだ る さい 。 


load 


Save "aa:\test.dat" 
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っ SCREEN ステ ー ト メン ト 


screen 〔< 表 示 画 面 サイ ズ 〉〕,【< グ ラフ ィ ッ ク 画 面 の 実 画面 サイ ズ 及び 色 モー ド >〕 
< ディ スプ レイ 解像度 ?(, く グ ラフ ィ ッ ク 画 面 の 表示 ON/OFF>) 


SC 


画面 全体 (チキ スト 画面 、 グ ラフ ィ ッ ク 画 面 、 ス プラ イト 画面 ) の スク リー ン モ ー ド 
を 設定 し ます 。 


< 表示 画面 サイ ズ > 


0 256X256 

1………512X512 

2………768X512 (< ディ スプ レイ 解像度 > が 1 ( 高 解 像 度 モ ー ド ) の と きのみ 使 
用 可能 


た だ し 、 < 表示 画面 サイ ズ > が 768X512 以 外 の と き に の み 、 スプ ライ ト 画 面 は 使用 で き 
ます 。 また 、 < 表示 画面 サイ ズ > が 768X512 の と き は 、 く グラフィック 画面 の 実 画面 サイ 
ズ 及 び 色 モー ド > は 、 0 し か 設定 で きま せん 。 


< グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド >( 使 用 可能 な グラ フィ ッ ク ペ ー ジ ) 


0…… 1024X1024、16 色 (グラ フィ ッ ク ペ ー ジ 0 ) 
eewieess 512X512、16 色 (グラ フィ ッ ク ペ ー ジ 0 一 3 ) 
2……512X512、256 色 (グラ フィ ッ ク ペ ー ジ 0、1) 
3………512X512、65536 色 (グラ フィ ッ ク ペ ー ジ 0 ) 


た だ し 、< く グラフィック 画面 の 実 画面 サイ ズ 及び 色 モ ー ド > が 0 以外 の と き は 、< 表 示 画 
面 サイ ズ > は 0 また は 1 し か 設定 で きま せん 。 


< ディ スプ レイ 解像度 > 
0……t… Low (標準 解像度 ) 
1 tt High( 高 解像度 ) 


た だ し 、screen ,,0 は < ディ スプ レイ 解像度 > の み を Low に 設定 し 、screen ,,1 
は < ディ スプ レイ 解像度 > の み を High に 設定 し ます 。 この 場合 、 グ ラフ ィ ッ ク RAM の 
デー タ は 保存 きれ た まま ます 。 く < ディ スプ レイ 解像度 > が Low の と き は < 表示 画面 サイ 
ズ > で 768X512 は 使用 で きま せん 。 


く < グラ フィ ッ ク 画 面 の 表示 ON/OFF> 
0……… 表 示 OFF (グラ フィ ッ ク 関 数 使用 不可 ) 
グラ フィ ッ ク RAM を グラ フィ ッ ク 以 外 の 目的 で 使用 する 場合 に 設定 
し て くだ さい 。 
1 ……… 表 示 ON (グラ フィ ッ ク 関 数 使用 可 ) 
グラ フィ ッ ク RAM を グラ フィ ッ ク 関 数 な ど で 使用 する 場合 に 設定 し 
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て くだ さい 。 (グラ フィ ッ ク RAM 人 初期 化 ) 
な お 、 一 旦 く グラ フィ ッ ク 画 面 の 表示 ON/OFF> を 1 に 設定 する と すべ て の グラ フィ 
ッ ク RAM の デー タ は 消去 され ます 。 特に グラ フィ ッ ク RAM を RAM デ ィ ス ク と し て 
使用 し て いる 場合 は 、 RAM デ ィ ス ク が 破壊 され ます の で 、 あらかじめ RAM デ ィ ス ク 
の デー クタ を ディ スク な ど に セー プ し で くだ きい 。 


screen 命 令 実 行 後 、window 関 数 (グラ フィ ッ ク 画 面 の クリ ッ ピ ング エリ ア ) は 表示 画 
面 サ イズ に 、home 関 数 (グラ フィ ッ ク 画 面 の 実 画面 に お ける 表示 画面 の 左上 座標 ) は 
( 0 , 0 ) に 再 設定 され ます 。 ま た 、 テ キス ト 画 面 は 、 通 常 表 示 ON、 ス プラ イト 画面 及 
び グ ラフ ィ ッ ク 画 面 は 表示 OFF で す 。 

グラ フィ ッ ク 関 数 を 使用 する 場合 は 、 必ず 最初 に screen 命 令 で 初期 化 を 行っ て くだ さ 
い 。 


SEARCH コマ ンド 


[Jsearch "< 検索 文字 列 >” 
[IlJse. 


指定 し た < 検索 文字 列 > を 含む プロ グラ ム 行 を すべ て 表示 し ます 。 
lsearch 命 令 を 使用 すれ ば 、 プ リン タ に 出力 で きま す 。 


searoh "X68" 
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SETMSPOS MOUSE 


setmspos(x,y) 
引 数 int 
戻り 値 int 


マウ スカ ー ソ ル の 位置 を 指定 し ます 。 範囲 は 、 msarea 関 数 に よっ て 指定 され た 範囲 で 
す 。 戻り 値 と し て 、 エ ラー の と き ー 1 を 返し ます 。 


| 19 /* setmspos sample 
29 nm も a ぇ =1。b も 3 GS 
39 screen 2,.9,1,1 
49 vpage(1) 
50 mouse(9) 
69 msarea(9,.9,767,511) 
79 box(9,9,767,511,15,&HFFFF ) 
89 mouse(1) 
99 while ai<>9 


199 print "mouse cursor area (X) = 9---767" 
119 Print "mouse cursor area (Y) = の @---511" 
120 input "mouse cursor position (X,Y) = "jibi,oi 
130 setmspos(bi,oi ) 
149 endwhile 
159 end 
SGN 標準 関数 


式 sgn(n) 


を 返し ます 。 


19 /* sgn sample 

20 print sgn(4523453.453#) 
39 print sgn( の 9) 

4 の print sgn(-442134.24568#) 
59 end 
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SIN 標準 関数 


sin (n) 
float 
float 
数 値 n( ラ ジア ン ) の 正弦 (サイ ン ) を 返し ます 。 


1 の 9 /* sin sample 

29 int ai,bi ,oci ,di 

39 float af 

49 screen 1,3,1,1 

59 vpage(1) 

69 1ine( の ,255,511,255,65535,&HFFEFF ) 
7 の 9 for ai=1 to 3 


89 for bi= の 9 to 511 
99 af=(2*pi ( ) *bi ) /512*ai 
199 ci=255-sin(af ) *209 
119 di=rnd()*65535 
1209 pset(bi,oi,di ) 
139 next 
14 の 9 next 
159 end 
SPACE $ RE 
書 式 Space$ (i) 
引 数 int 
Str 


長 さ 文字 の 空白 文字 (&H20) か ら な る 文字 列 を 返し ます 。 
長き i は 1 か ら 255 の 値 を と り 、 0 また は 負 の 場合 に は null 文 字 を 返し ます 。 


1 の /* space$ sample 
20 str as[255] 

39 as=space$( 254 )+"\" 
4 の print as 

59 end 


落 | | 洒 
悪 | 司 


用 例 
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SP_CLR SPRITE 


び ) 


只 
由 


敬 | | 油 | | 
吉 | | 塵 | | 甘 


sp clr(〔cd1〕 〔, cd2〕) 
char 
int 


パタ ー ン コー ド cd1 か ら パ ター ンコ ー ド cd2 で 指定 し た 範 胃 の スプ ライ ト や バッ ク グ 
ラウ ンド の パタ ー ン を 初期 化し ます 。 

パタ ー ン コー ド cd1 を 省略 し た 場合 は 、 パ ター ンコ ー ド 0 か ら パ ター ンコ ー ド cd2 ま で 
の パタ ー ン を 初期 化し ます 。 パ パタ ー ン コー ド cd2 を 省略 し た 場合 は 、 パ ター ンコ ー ド 
cd1 で 指定 し た パタ ー ン だ け 、 ま た パタ ー ン コー ド cd1、cd2 と も 省略 し た 場合 は 全 パ パタ 
ー ン (パタ ー ン コー ド 0 一 255) が 初期 化 さ れ ま す 。 


cd1、cd2… ン パタ ー ン コー ド (0 一 255) 


P_COLOR SPRITE 


sp color(p,c【, pb〕) 

char(p, pb) , int (c) 

int 

スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン 単位 に パレ ッ ト ブ ロッ ク pb を 指定 し 、 そ の 
パタ ー ン の ドッ ト 上 単位 に ( 各 パ ター ン に お ける パレ ッ ト ブ ロッ ク pb の 中 か ら ) パパ レッ 
トコ ー ド p を 設定 し 、 そ の パレ ッ ト に カラ ー コ ー ド c を 割り あて ます 。 な お 、 パ レッ ト 
プ ブロッ ク pb を 省略 し た と き は 、 ノ パ レット ブロ ッ ク 1 と 見 な され ます 。 パパ レッ トコ ー ド 0 


に は 透明 を 設定 し て くだ さい 。 
戻り 値 と し て 、 指 定 さ れ た パパ レッ トコ ー ド p に 対す る 設定 前 の カラ ー コ ー ド を 返し ます 。 


隊 や の パレ ッ ト コ ー ド (0 一 15) 
ca カラ ー コ ー ド (0 一 65535) 
Pb ……… 2 パレ ッ ト ブ ロッ ク (1 一 15) 
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ら と 全 D E 避 SPRITE 


sp_def (cd, ca, sz]) 
char (cd, sz), char 型 一 次 元 (255 ま た は 63) 配 列 名 (ca) 
int 


スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン を 定義 し ます 。 


0 陸 は の パタ ー ン コー ド (0 255) 

CN Wo スプ ライ ト や バッ ク グ ラウ ンド の パパ ター ン の デー タ が 格納 され て い 
る char 型 一 次 元 配列 名 、 要 素数 256 (sz= ニ 1 の と き ) ま た は 64(sz=0 
の と き ) 

に の Peeoeo パタ ー ン サイ ズ (0、1) 


パタ ー ン サイ ズ sz が 1 の 場合 、 定 義 で きる パタ ー ン は 16X16 ド ッ ト で 、1 ド ッ ト に つき 
配列 ca の 1 要素 を 使用 し ます 。0 番 目 の 要 素 が パタ ー ン の 左上 端 の ドッ ト 、15 番 目 の 要 
素 が パタ ー ン の 右上 端 の ドッ ト に 対応 し ます 。 こ の 場合 の 配列 ca の 要素 数 は 256 に な 
り ま す 。16X16 ド ッ ト の パタ ー ン が 使用 3 れる の は 、 ス プラ イト の パタ ー ン や 表示 画 
面 サ イズ が 512X512 の 場合 の バッ ク グ ラウ ンド の パターン を 定義 すむ する と き で す 。 ま 
た 、 パ ター ン サ イズ sz が 1 の と き 、 バ ッ ク グ ラウ ンド の テキ スト ペー ジ 1 し か 使用 し な 
い 場合 の パタ ー ン コー ド cd は 0 か ら 191 ま で の 値 を と る こと が で き 、 テ キス トペ ー ジ 0、 
1 と も 使用 する 場合 の パタ ー ン コー ド cd は 0 か ら 127 ま で の 値 を と る こと が で きま す 。 
バッ ク グ ラウ ンド の テキ スト ペー ジ 0、1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 し 
な い ) 場合 の パタ ー ン コー ド cd は 0 か ら 255 ま で の 値 を と る こと が で きま す 。 
パタ ー ン サイ ズ sz が 0 の 場合 、 定 義 で きる パタ ー ン は 8X8 ド ッ ト で 、1 ド ッ ト に つき 配 
列 ca の 1 要素 を 使用 し ます 。 0 番目 の 要素 が パタ ー ン の 左上 端 の ドッ ト 、7 番 目 の 要 素 が 
パタ ー ン の 右上 端 の ドッ ト に 対応 し ます 。 こ の 場合 の 配列 ca の 要素 数 は 64 に な り ま 
す 。 8X8 ド ッ ト の パタ ー ン が 使用 きれ る の は 表示 画面 サイ ズ が 256X256 の 場合 の バッ 
ク グ ラウ ンド の パタ ー ン を 定義 むす る と き で す 。 

パパ ターン サイ ズ sz が 1 の と き 、 ノ マター ン コー ド n と いう ノ パ ター ン が 定義 きれ て いた と し 
ます 。 こ の 16X16 ド ッ ト の パタ ー ン と 同じ も の を 定義 むす る た め に は 、 ノ パ マ ター ン サ イズ 
SZ が 0 の と き 、4 つ の パタ ー ン コー ド が 必要 に な り ま す 。 こ の 4 つの パパ ター ンコ ー ド に 
は 、16X メ 16 ドット の パタ ー ン の 内 、 左上 の 8X8 ド ッ ト の パタ ー ン が 、 ノ パタ ー ン コー ド 
4m に 、 左 下 の 8X8 ド ッ ト の パタ ー ン が パタ ー ン コー ド 4n 十 1、 以 下 同様 に 右上 が 4n 十 
2、 右 下 が 4n 十 3 に 対応 し ます 。 た だ し 、 パタ ー ン サイ ズ sz が 0 の と き で も 定義 で きる パ 
ター ン の 最大 数 は 256 で す 。 

な お 、 パ ター ン サ イズ sz を 省略 する と 、 パ ター ン サ イズ sz は 1 と 見 な され ます 。 ま た 、 
1 ドッ ト の デー タ は 4 ビッ ト で この 値 が その ドッ ト の パレット コ ー ド p と な り ま す 。 


SD_pat 
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19 /* sprite sample 

2 mn も まり TE YE る 

39 char po,pb,vr,hr,cd 

49 float f 

59 /* define sprite-pattern 

69 dim ohar SP9(255)={ 

79 まき 9。 人 LT 9 の 05 こ 15 こま 19344 。 9 7 5 き 。 下 。 

89 0 SN が の 9 3415 は 9 4138 は) 952 05 95 きま 

99 っ 9r DOy 0。 9 まま 19 15 819 01 9 7。 9. 3。 5 

199 由 ま きか 。 e  S  B2113 05 5 すま S こ 445 9 に 6 ば ほ 。 すむ 

119 まま 39) が っ 9 UN3n15 09. 13201。 9。 7。 5。 3。 

129 1 SD っ 2 まま 3105 5 13』H ま 1 9 > 5 き 。 i 

139 Eo 3 9 7 の 1 03 に 15315. 上 934 ULT 9. 7。 5。 3 き 。 

140 届 の 37  07 89 まま 15 SL 15 5 3 届 も 9 75 5 きき 人 ド : 

159 の Ge SD の 9 3 5 が 153 ま 3 4T す 。 9 0 593。 8? 

169 まこ 8。 5 0。 9 の kdUL。 133 01515 31301 。 9。 7、 6。 3 す 。 1。 

179 まま SD お > 9 185 15>15 90 すま 。 9) 人 。 8。 き 。 有 ま 5 

189 590 9 0 9 9 65015 UI 0 95 2 ょ 9。 37 0 

199 人 人 3615 09343 ます 。 9。 7。 59。 3。 15 

299 9 の 。 が の DD 59055 ル 5 37235。 95 172 8) 3。 05 

219 1 。 3。 5。 9310 43) 5 よ 5。 馬 8。 まあ 9。 6。 59) 3。 1。 

220 す 1 3。 9897 > 95 41543.405515 ょ 8324 。 9。 7。 5 3。 昌 

239 ]} 

249 /* define background-pattern 

259 dim char BG9(63)={ 

260 の 。 8。 の 。 8。 の 。 8。 の 。 8。 

270 8, 9,。 の, の , 9, の, 9, 9, 

280 の 。 9 9 の 。 の 。 9, 0,。 の, 8, 

290 8,。 の 9 の, の 。 の 。 9, の 9。 の 。 0 の, 

3090 の, 9 の, 9 の, 9, 9 の, の 9, 9, 8 

310 。 の 。 の 。 の 。 @。 @。 @。 @。 

320 の 0。 の 0。 の ひ の 。 0」。 の 。 0 の 。 の 。 8。 

330 8。 の 9。 8。 の 。 8 。 90。 8, @ 

349 } 

359 dim char BG1(63)={ 

369 0, 9, の 9, 9 の, 9, の, 9, 9, 

370 9,19, 9,19, 9,19, 9, 9, 

389 9 の 。 の, 9 の,。 の 。 の 9, の,10, 0。 

390 0,19, の 9, の 9, の 9, 9, 9, 9, 

409 の 。 9, の 。 の 。 の ,。 9,10,。 0, 

419 9.19。 の 。 の 。 9。 の 9。 9。 0, 

420 9 の 。 の ひ ,1 の 。 の 。10。 の ,.10, 9。 

130 0。 秒 。 人 g。 9。 の 。 @。 の 人 @ 

439 } 

459 /* main */ 

469 screen 9,3,1,1 /* 表示 画面 サイ ズ 256*256 (768*512 以 外 な ら ス プラ イト 
画面 使用 可能 ) 

470 sp_init() /* スプ ライ ト 画 面 の 初期 化 

489 sp_clr(9,255) ああ グラ イド に の クリ ア (9 以上 255 以 下 の バ ター ン 
ヨー ) 

490 sp_disp(1) /* スプ ライ ト 画 面 の 表示 (9 な ら 表 示せ ず 、1 な ら 表 示す る 
) 

599 sp_on(9,1) /* スプ ライ ト プ レ ー ン の 表示 (9 以上 127 以 下 の プ レー ン 番 
号 ) 

519 /* set sprite-pattern & baokground-pattern 

529 sp_def(9,SP9, 1 ) /* 16*16 dots 

539 sp_def(4,BGO,0) /* 8* 8 dots 

549 sp_def(5,BG1,9) /* 8* 8 dots 

559 /#* set palet-blook 

569 pb=14 

570 for i= の 9 to 15 

589 DC ニ 1 

599 Sp_color(po,hsv(49,31,1*2+1 )+1 ,pb ) 

699 next 

619 pb=15 

629 for i= の to 15 

639 DC= ュ 1 

649 Sp_color(pc,hsv(99,31.i*2+1 ) +1 , pb ) 

659 next 

669 /* set baockground 9 
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bg_fi11( の ,pat dat(9,9,1,4) ) 
bg_set(9,9 の ,1) 

/* set baokground 1 

bg_fil1(1,pat dat(9,9,1,5) ) 
bg_set(1,1,1) 

/* set sprite-plane の,1 & baokground 9 , 1 


3= の 1:d ュ =1 
while -1 
ュ = ュ オ d ュ 


/* baokground scro11 
if x1=511 then x1= の 
1 y1=511 then  y1= の ひ 
が も = 
y1=y1+1 
bg_soro11(9,x1,y1) 
bg_soro11(1,511-x1,511-y1 ) 
/* move sprite 
if i<1 then di=1 
if i>286 then di=-1 
f=(pi(2)*i)/288*8 
X2=128-120*sin(f)#*oos( サ )*sin(f+pi ( ) /2) 
/* プラ イオ リティ (sprite > baokground > baokground1 ) 
Sp_Set( の , ヾ 2,i,pat dat( の ,9,15,9) , 3 ) 
が ガラ ザイ ザ オ 下 デ テディ (background9 > sprite > background1 ) 
Sp_Set(1,i, ぶ 2」pat dat( の ,9,14,9),2) 
for j=9 to 509:next 
endwhi]e 
end 
Func pat dat(vr,hr,pb, cd ) 


7# yr = 牌 直 反 転 (の な ら 反 転 し な い 、1 な ら 反 転 す る ) 
/# hr = 水平 反転 (9 な ら 反 転 し な い 、1 な ら 反 転 す る ) 
/#* pb = パレ ッ ト ブ ロッ ク (1 以上 15 以 下 の 値 ) 

/# cd = パタ ー ン コー ド (9 以上 255 以 下 の 値 ) 
return(vr*32768+hr*16384+pb*256+cd ) 

endfuno 


SP_DISP SPRITE 


SD disp(ch) 
| 引数 | 
| 戻り 値 | 


char 
int 
スプ ライ ト 画 面 (スプ ライ ト や バッ ク グ ラウ ンド ) の 表示 の 設定 を し ます 。 な お 、 ス 


プラ イト 画面 は 表示 画面 サイ ズ が 768x512 以 外 の と き 使 用 で きま す 。 


ch ……… 0 (スプ ライ ト 画 面 を 表示 し な い ) 
1 (スプ ライ ト 画 面 を 表示 する ) 
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SP_INIT SPRITE 


SD init() 
int 
スプ ライ ト 画 面 (スプ ライ ト や バッ ク グ ラウ ンド ) を 初期 化し ます 。 初期 化 する も の 


は 、 各 パ ター ン や パパ レッ ト な ど で す 。 な お 、 スプ ライ ト 画 面 は 表示 画面 サイ ズ が 768X 
512 以 外 の と き 使 用 で きま す 。 


SP_MOVE SPRITE 


+ 


sp move(s,【x〕,[y〕【, cd] ) 

char (S,cd) ,int (xy) 

int 

パパ ター ンコ ー ド cd の スプ ライ ト パ タ ー ン を プレ ー ン s に 割り あて 、 指 定 され た 座標 位 
置 に その スプ ライ ト を 表示 し ます 。 


人 ea antei プレ ー ン (0 一 127) 
RC X 座 標 (一 16 一 1007) 
yr Y 座 標 (161007) 
cd … の rm パパ ター ンコ ー ド (0 一 255) 


表示 画面 の 左上 座標 は 、sp_set と 異な り (0.00 に な り ま す 。 

sp move は sp _set の パラ メー タ の 一 部 を 標準 的 な 値 に 設定 し た 関数 で す 。 つま り 、 垂 

直 、 水 平 反転 は 通常 、 パ レッ トブ ロッ ク は 1、 優 先 度 は 3 に 、 自 動 的 に 設定 され ます 。 

より 高度 な 使い 方 を する 場合 は 、sp_set を 使用 し て くだ さい 。 

バッ ク グ ラウ ンド の テキ スト ペー ジ 1 し か 使用 し な い 場 合 の パタ ー ン コー ド cd は 16 メ 

16 ド ッ ト パ ター ン の 場合 0 か ら 191 ま で の 値 を と る こと が で きま す 。 テ キス トペ ー ジ 0、 
1 と る 使用 する 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 127 ま で 
の 値 を と る こと が で きま す 。 テ キス トペ ー ジ 0、1 と も 使用 し な い (バッ ク グ ラウ ンド 
を 使用 し な い ) 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 255 ま で 


の 値 を と る こと が で きま す 。 
sp _set 
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SsP_OFF SPRITE 


sp_off(【s1]【, s2〕) 


char 


測 | | | 只 
選 | | 難 | | 遇 


int 


機 能 プレ ー ン sl1 か ら プ レー ン s2 で 指定 し た 範囲 の スプ ライ ト が 表示 され ませ ん 。 プ レー ン 
s1 を 省略 し た 場合 は 、 プ レー ン 0 か ら プ レー ン s2 ま で の スプ フラ イト が 表示 され ませ ん 。 
プレ ー ン s2 を 省略 し た 場合 は 、 プ レー ン s1 で 指定 し た スプ ライ ト だ け 、 ま た プレ ー ン 
s1、s2 と も 省略 し た 場合 は 全 ス プラ イト (プレ ー ン 0 一 127) が 表示 され ませ ん 。 
S1、 Ss2…… プレ ー ン (0 ~127) 
SP_ON SPRITE 


sp on(〔s1]〔, s2〕) 


品 | | 中 
癌 | | 半 


char 
戻り 値 int 
機 能 プレ ー ン sl から プ レー ン s2 で 指定 し た 範囲 の スプ ライ ト が 表示 され ます 。 プ レー ン s1 


を 省略 し た 場合 は 、 プレ ー ン 0 か ら プ レー ン s2 ま で の スプ ライ ト が 表示 きれ ます 。 プレ 
ー ン s2 を 省略 し た 場合 は 、 プ レー ン s1 で 指定 し た スプ ライ ト だ け 、 ま た プレ ー ン s1、 
s2 と も 省略 し た 場合 は 全 ス プラ イト (プレ ー ン 0 一 127) が 表示 され ます 。 


s1、s2…… プ レー ン ( 0 一 127) 
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SP_ PAT SPRITE 


sp pat(cd, ca[, sz] ) 


| 書式 | 
char(cd, sz), char 型 一 次 元 (255 ま た は 63) 配 列 名 (ca) 


int 


スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン の デー タ を 、 指定 され た 配列 ca に 読み 出し 
ます 。 
本旨 2 パタ ー ン コー ド (0 255) 
軸 全 sei スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン の デー タ を 格納 する 
char 型 一 次 元 配 列 名 、 要 素数 256 (sz= ニ 1 の と き ) ま た は 64(sz=0 の 
と き ) 
思 WS パタ ー ン サイ ズ (0、1) 
読み 出さ れ た パタ ー ン の デー タ の 詳細 や 、 パ ター ンコ ー ド cd や 配列 ca、 パ ター ン サ イ 
ズ sz の 詳細 に つい て は 、sp def 関数 を 参照 し て くだ さい 。 
ピ 】 Sp def 


/* sp_pat sample 

int ai,bi 

char ao 

dim char aoa(255) 

Screen 1,3,1,1 

input "スプ ライ ト (16*16 ト " ッ ト ) の パタ ー ン コー ド を 入力 し て くだ さい (9~ て 255)---> 


Sp_pat(ac,aoa,1 ) 

for ai1= の 9 to 255 
if ai<>9 and (ai mod 16)=9 then print 
DPT1int uS1ng "###":aCa(ai ) 

10( に か る 

end 
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IP らち ET SPRITE 


中 


式 


藻 | | 測 | | 
悪 | || | 導 


sp set(s, 〔x], 【y], 〔pd〕 〔, pr]〕) 
char (s, pr) , int (x, y, pd) 
int 


パタ ー ン コー ド cd の スプ ライ ト パ タ ー ン を プレ ー ン s に 割り あて 、 指 定 さ れ た 座標 位置 
に その スプ "ライ ト を 表示 し ます 。 


Sr プレ ー ン (0 一 127) 

eS X 座 標 (0 一 1023) 

he ute Y 座 標 (0 一 1023) 

pd ……… パタ ー ン デー タ (0 一 &HCFFF) 
IE "me 優先 度 (0 一 3 ) 


表示 画面 の 左上 座標 は (16,16) に な り ま す 。 
パタ ー ン デー タ pd は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。( ビ ッ ト 12、13 は 通常 0 
に な り ま す 。) 

ビッ ト 15…… 垂 直 反 転 (0 : 1 : 垂直 反転 ) 

ビッ ト 14………| 水平 反転 (0 : 通常 、1 : 水平 反転 ) 

ビッ ト 8 一 11… ン パレット プ ブロッ RW ー15) 

ビッ ト 0 一 7… ン パタ ー ン コー ド cd( 0 一 255) 
垂直 反転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 上 下 反 転 し て 表示 され ます 。 ま 
た 、 水 平 反 転 を 指定 する と 、 実 際 に 定義 され た ノ パ ター ン が 左右 反転 し て 表示 され ます 。 
パレ ッ ト ブ ロッ ク pb は 各 パ ター ン に 対し て 指定 する パレ ッ ト で 、 詳細 に つい て は 、 sp 
_color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場 合 の の パ \ タ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 
場合 0 か ら 191 ま で の 値 を と る こと が で きま す 。 テ キス トペ ー ジ 0、1 と も 使用 する 場 

合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 127 ま で の 値 を と る こと 

が で きま す 。 テ キス トペ ー ジ 0、1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 し な い ) 
場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 255 ま で の 値 を と る こ 
と が で きま す 。 
優先 度 pr は 、 指 定 する 値 に よっ て スプ ライ ト と バッ ク グ ラウ ンド 0、1 の 表示 優先 順位 
を 次 の よう に 設定 し ます 。 

0…… スプ ライ ト は 表示 され な い 

OH パッ ググ ラウ ンド 0 テバ パッ ク グ ラウ ンド 1 ユラ タス プラ イト 

DJCD 2 パッ ク ググ ラウ ンド 0 ラス プラ バト ラバ パッ ク グ ラウ シド 1 

Oo スプ ライ ト > バ ッ ク グ ラウ ンド 0 バッ ク グ ラウ ンド 1 
な お 、 こ こ で は 左側 に ある ほど 重なっ た と き の 表示 は 優先 され る こと を 意味 し て いま す 。 
sp stat 
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SP_STAT | SPRTE 


sp stat(s, md) 
char 


int 


藻 | | 測 | 加 | 憧 
呑 | | 富 | | 藻 | | 


指定 され た スプ ライ ト の 状態 を 読み 出し ます 。 


ECCCCECEEEE ププ" レー ン (0 一 127) 

md ……… モー ド (0= デ 8) 
モー ド md に は 読み 出す 内 容 を 指定 し ます 。 

0 三 XX 座標 (0 一 1023) 

1 ニ =Y 座 標 (0 一 1023) 

2 ニ = ニ パターン デ ー タ pd(0 一 HCFFF) 

3 優先 度 pr (0 一 3) 
モー ド md で 2 や 3 を 指定 し た と き に 読み 出さ れ た 内 容 (パタ ー ン デー タ pd や 優先 度 
pr な ど ) の 詳細 に つい て は 、sp set 関数 を 参照 し て くだ さい 。 


+ 


Sp set 
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SQR 標準 関数 


sqr(n) 
float 
float 


機 能 数 値 n の 平方 根 (( レ ー ト ) を 返し ます 。n 0 で な けれ ば な り ま せん 。 


1 の /* sqr sample 
用 例 29 float af,bf 

3 の 9 af=5.3# 

49 bf=3909.455# 

5 の print sqr(af ) 

69 print sqr(bf ) 

79 end 


SRAND 林 準 関数 


書 式 srand(i) 


int 


rand( ) 関数 の 乱数 系 列 を 初期 化し ます 。 


in…… 乱 数 の シー ド (0 ミ i ミ 65535) 


rand、randomize、rnd 


19 /* srand sample 
2 の int ai,bi 

3 の 9 for ai=9 to 2 
49 srand(ai ) 


void 
志 3 


59 for bi= の to 19 
69 print rand( ) 
709 next 

8 の next 

99 end 
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STI じ CK STICK 


stick(]) 
| 引数 | 


int 
戻り の 値 | int 
機 能 | ジョ イス ティ ッ ク j の 状態 を 調べ ます 。 
0 Re 
2 の 三 ジ ョ イズ ス ディック 2 


戻り 値 は 次 の よう に な り ま す 。 


| 3 

用 例 

19 /* stiok samp1le 

29 int ai,bi 

39 cl1s 

4 whi1e bi< く > 1 

59 ai=stiok(1 ) 

69 1ocate 10,11 

79 switoh ai 

89 case 1:print "1eft baok ( 左 後 ) ="ia1i:break 
99 case 2:print "back ( 後 ) ="jai:break 
199 case 3:print "right back ( 右 後 ) ="jai:break 
110 case 4:print "1eft ( 左 ) ="jai:break 
120 case 6:print "right ( 右 ) =":a1i:break 
130 case 7:print "1eft forward (左前 ) ="jai:break 
1409 case 8:print "forward (前 ) ="jai:break 
159 case 9:print "right forward (右前 ) ="jai:break 
169 default:locate 19,19:print "ジョ イス ティ ッ ク を 動か し て くだ さい !" 
170 1ocate 19,11:print “" 上 
180 endswitch 
199 endvhi1le 
299 end 
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っ STOP ステ ー ト メン ト 


プロ グラ ム の 実行 を 停止 し ます 。 
プロ グラ ム の 実行 を 停止 し て 、 直 接 命令 が 入力 で きる 状態 に し ます 。stop 命 令 は プロ 
グラ ム 内 の どこ に お いて も か まい ませ ん 。 
プログ ラム を 再開 する に は cont 命 令 を 実行 し ます 。 


ユ cont 
19 /* stop sample 
2 の print "persona1 " 
39 print "input !oon も 5 7 
49 stop 


59 print "workstation 
69 print "input !oont も 717 
79 stop 

89 print "X68999 

9 end 


STR ステ ー ト メン ト 


只 
下 


Str < 変数 名 >〔[ く 文字 バッ ファ の サイ ズ >]〕【〔 ニ < 文字 定数 式 >]〔, . . . 〕 


工 
q ト 
CC 


変数 を 文字 (str) 型 と し て 宣言 し ます 。 同 時 に 文字 列 を 代入 する こと も で きま す 。 ま 
だ た 、 く < 文字 バッ ファ の サイ ズ > を 1 一 255 の 範囲 で 設定 で きま す 。 < 文字 バッ ファ の サイ 
ズ > を 指定 し な い 場 合 は 32 文 字 と 見 な され ます 。 str 型 変数 お よび 定数 は 、 常 に キャ ラ 
クタ コー ド が 0 で 終わ っ て いま す 。 

原則 と し て 、 変 数 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 ま た 、 同 じ 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 


2 char、float、int 


19 /* str sample 
2 の str as="personal workstation X680990 


39 str bs="super persona] workstation X68999 HD" 
49 str cs[255]="super personal workstation 680999 "+"Ssuper persona] uorks 
tation X68000 "+ "super persona]1 workstation X6809090 HD M 


59 str ds="SHARP"',es=" 株 式 会 社 " 
69 print as 

79 print bs 

89 cs=cs+os 

99 print os 

109 print ds,es 

119 end 
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戻り 値 
機能 
= 


標準 関数 
str$ (n) 
float 
str 


浮動 小数 値 n を 文字 列 に 変換 し て 返し ます 。 


19 /* str$ sample 

29 float af,bf,jcf 

39 str as,bs,os[ 409] 
49 af=399999909090000# 
59 bf=2.51235E+200# 
69 of=-2.3541786563E-399# 
79 as=str$(af ) 

89 bs=str$( bf ) 

99 cs=str$(cf ) 

199 print as+bs+ocs 
119 print bs+os+aS 
129 print os+as+bs 
139 end 


STRCHR 上 準 関数 


strchr (st, ch) 
str (st) , char (ch) 
int 


文字 列 st の 中 で 最初 に キャ ラク タコ ー ド ch の 文字 を 見 つけ た 位置 を 返し ます 。 位置 は 
文字 列 st の 先頭 が 0 に な り ま す 。 見 つか ら な か っ た 場合 は 、 一 1 を 返し ます 。 
キャ ラク タコ ー ド ch は 、 0 か ら 255 の 値 を と り ま す 。 


19 /* strohr sample 

29 char ac 

3 の str as 

49 as="persona1 workstation X68990 
59 ac=asc( "ec") 

69 print strohr(as,ao ) 

79 end 


山 
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STRCSPN EE 


Strcspn (st1, st2) 
Sr 
戻り 値 int 
文字 列 st2 の 中 の どれ か 1 文字 を 文字 列 st1 の 中 で 最初 に 見 つけ た 位置 を 返し ます 。 位 
置 は 文字 列 st1 の 先頭 が 0 に な り ま す 。 見 つか ら な か っ た 場合 は 、 文 字 列 st1 の 長 さ を 返 
し ます 。 


文字 列 sSt2 が null 文 字 の 場合 も 、 文 字 列 st1 の 長 さ を 返し ます 。 ま た 文字 列 st1 が null 文 
字 の 場合 は 0 を 返し ます 。 


19 /* strospn sample 
用 例 29 str as,bs 
39 as="personal workstation 68999 
49 bs="zk4q" 
59 print strocspn(as,bs ) 
69 end 
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STRIG STICK 


strig (j) 

int 

int 

ジョ イス ティ ッ ク j の トリ ガー ボタ ン の 状態 を 調べ ます 。 


入 語 2 eeex 1 三 ジ ョ イス ティ ッ ク 1 
2 ジョ イス ティ ッ ク 2 
戻り 値 は 次 の よう に な り ま す 。 


1 ニ 1 の を き ( トリ ガーA、B と も 押さ きれ て いな い 
ラン トリ ガーA の み 押 され て いる 
寺 誠 トリ ガーB の み 押 され て いる 
3…… トリ ガーA、B と も 押さ れ て いる 


j 三 2 の と き UGC トリ ガーA、B と も 押さ れ て いな い 
(2 ョ ステ イグ の) 1 で トリ ガーA の み 押 され て いる 
ice トリ ガーB の み 押 され て いる 
了 人 ee トリ ガーA、B と も 押さ れ て いる 


19 /* strig sample 


2 の 9 int 
3 の 9 cls 


a1 


49 while -1 


5 の 9 1ocate 19,19 

69 ai=strig(1 ) 

79 if ai=9 or ai>4 then print "ジョ イス ティ ッ ク 1 の トリ が ガー を 押し て くだ さ 
い 『! "iContinue 

89 if ai=1 then prin も t "ジョ イス ティ ッ ク 1 の トリ ガーA が 押さ れ ま し た 3 
continue 

99 if ai=2 then print "ジョ イス ティ ッ ク 1 の トリ ガーB が 押さ れ ま し た 
Continue 

199 if ai=3 then print "ジョ イス ティ ッ ク 1 の トリ ガー ム A、B が 押さ れ ま し た " 


119 endwhile 


129 end 
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STRING$ 標準 関数 


stringS (i. st) 


引 数 int (i) , str (st) 
戻り 値 Str 


文字 列 st の 先頭 1 文字 だ け で で きた 、 長 き : 文 字 の 文字 列 を 返し ます 。 長 さき i は 1 か ら 
255 の 値 を と り 、 0 また は 負 の 場合 に は null 文 字 を 返し ます 。 
10 /* string$ sample 
用 例 29 str as[255] 
3 の as=string$(255,"\") 


49 print as 
59 end 


STRLEN(LEN) 標準 関数 


strlen(st) 
len (st) 
Str 
戻り 値 int 
文字 列 st の 長き (0 一 255) を 返し ます 。 文 字 列 st が null 文 字 の 場合 は 0 を 返し ます 。 
2 2 Okam (1en ) samp1e 


39 as="persona] workstation X68999 
4 の print str1len(as ) 

5 の print len(as) 

69 end 
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STRLWR El 


strlwr (st) 
str 型 変数 名 
Str 


str 型 変数 st の 中 の 英 大 文字 を すべ て 英 小文字 に 変換 し ます 。 


19 /* strlcr sample 

29 str as 

39 as="PERsona1 corkSTATION X680999 
49 str]lwr(as) 

59 print as 

69 end 


STRNSET 準 関数 


用 例 


strnset (st, ch、i) 
str 型 変数 名 (st) 、 char(ch) intG) 
Str 


str 型 変数 st の 先頭 か ら 文字 数 分 を キャ ラク タコ ー ド ch の 文字 に 変換 し ます 。 
キャ ラク タコ ー ド ch は 、0 か ら 255 の 値 を と り ま す 。 文字 数 稼が 0 また は 負 の と き は str 
型 変数 st の 内 容 は 変わ り ま せん 。 


19 /* strnset. sample 

20 char ac 

39 str aS 

49 as="persona1 corkstation X680090 
59 aco=asc("\") 

69 strnset(as,ao,8) 

79 print as 

809 end 
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STRRCHR 標準 関数 


strrchr (st, ch) 


str(st), char(ch) 
int 


能 文字 列 st の 中 で キャ ラク タコ ー ド ch の 文字 が 最後 に 見 つか っ た 位置 を 返し ます 。 位置 
は 文字 列 st の 先頭 が 0 に な り ま す 。 先 頭 で し か 見 つか ら な か っ た 場合 は 0 、 ま っ た く 見 
つか ら な か っ た 場合 は 一 1 を 返し ます 。 キャ ラク タコ ー ド ch は 、0 か ら 255 の 値 を と り 


ます 。 
1 の /* strrohr sample 
| Dp 
用 例 29 ohar ao 
3 の str as 


49 as="persona1] workstation Y689099 
59 ac=asc("o") 
69 print strrohr(as,ao ) 


STRREV 標準 関数 


StrreVv (st) 

str 弄 変数 名 

Si? 

str 型 変数 st の 並び を 逆転 し ます 。 
19 PS sample 


39 as="personal workstation X680099 
49 strreyv(as ) 

59 print as 

69 end 


210 


So TRSEE【 標準 関数 


strset (st, ch) 
str 型 変数 名 (st) , char (ch) 
Str 


str 型 変数 st の すべ て の 文字 を 、 キ ャ ラク タコ ー ド ch の 文字 に 変換 し ます 。 
キャ ラク タコ ー ド ch は 、 0 か ら 255 の 値 を と り ま す 。 


19 /* strset sample 

2 の 9 char ao 

3 の str as 

49 as="personal] workstation X68999 
59 aco=aso("\") 

69 strset(as,ao ) 

7 の print as 

89 end 


STRSPN 標準 関数 


strsDn (St1 , St2) 
Str 
int 


文字 列 st2 に 属さ な い 文 字 を 文字 列 st1 の 中 で 最初 に 見 つけ た 位置 を 返し ます 。 位 置 は 
文字 列 st1 の 先頭 が 0 に な り ま す 。 見 つか ら な か っ た 場合 は 、 文 字 列 st1 の 長き を 返し ま 
す 。 ま た 、 文 字 列 st1 あ る い は st2 が null 文 字 の 場合 は 0 を 返し ます 。 

19 /* strspn sample 

29 str as,bs 

39 as="persona] corkstation X68000 

40 bs="persona] vktin680999" 


S9 print strspn(as,bs ) 
69 end 
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STRTOK 標準 関数 


書 式 strtok (st1, st2) 
str 


工 
エト 
CC 


文字 列 st2 に 含ま れる 文字 (どれ か 1 文字 ) を 文字 列 st1 の 中 か ら 探 し 、 見 つか れ ば 先頭 
か ら そ の 位置 まで の 文字 列 を 返し ます 。 

最初 の strtok 関 数 の 実行 の 場合 は 、 文 字 列 st1 の 先頭 に 文字 列 st2 に 含ま れる 文字 が あ 
っ て も 無視 し ます 。 続い て 、 文字 列 st1 を null 文 字 に し て strtok 関 数 を 実行 する と 次 に 
文字 列 st2 に 含ま れる 文字 が 見 つか っ た と ころ まで の 文字 列 を 返し ます 。 文 字 列 st2 に 
合 ま れる 文字 が 見 つか ら な く な る と 、null 文 字 を 返し ます 。 文字 列 st2 が 、null 文 字 の 
場合 は 、 文 字 列 st1 を その まま 返し ます 。 


/* strtok samp1e 

str as[59],bs,cs 

3 の as="super personal workstation X68999 
4 の bs="zqx 123" 

59 print strtok(as,bs ) 

6 の print strtok(os,bs ) 

7 の 9 print strtok(os, bs ) 

89 print strtok(os, bs ) 

99 print strtok(os, bs ) 

199 end 


用 例 


トー 
ざ ぐ ざ 


STRUPR 準 関数 


strupr (st) 
str 型 変数 名 
戻り 値 str 


1 の /* strupr sample 

2 の 9 str as 

39 as="PERsona1 workSTATTON X689099 
4 の strupr(as ) 

59 print as 

69 end 


str 型 変数 st の 英 小文字 を すべ て 英 大 文字 に 変換 し ます 。 
| 用 例 | 
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SWITCH<CASEDEFAULTーENDSWITCH ステ ー ト メン ト 


書 式 switch < 式 0> 
ease < 式 1》:< 六 1> 
GaSeG < 式 昼 2。 く 玉 22 


ロ ロ 


case < 式 n> : < 文 n> 
〔default : < 文 d2) 
endswritch 
機能 < 式 0 > と 同じ 値 を も つ case の < 式 n> の 後 の < 文 n> を 実行 し ます 。< 式 0 > と 同じ 値 を も 
つ case の < 式 n> が な く て default が ある 場合 は 、< 文 d を 実行 し て か ら 、endswitch 以 
後 の 命 令 文 に 進み ます 。default が な けれ ば endswitch 以 後 の 命 令 文 に 進み ます 。 
case の < 式 n> の 中 に は 、 整 数 及び 文字 定数 の み 入 り ま す 。 


10 /* switoh case defau]t endswitoh sample 

2 int ai 

39 str as 

39 cls 

59 input "あな た の 血液 型 を 入力 し て くだ さい ( AB 型 =?ab) ,。 A 型 =2a) 。B 型 =?7b) 。O 


型 =)O) )- ニ ーー-> リ "iaS 


69 print 

79 switoh as 

89 case "ab":print - あ な た の 血液 型 は AB 型 で す " : break 
99 case "a":print "あな た の 血液 型 は A 型 で す ":break 
199 CASe "DS:pYmitn も "あな た の 血液 型 は B 型 で す ":break 
119 case "o":print "あな た の 血液 型 は O 型 で す ":break 
120 defau1lt も sprint も "の の 屋 補 人 で ア 

139 endswitoh 

139 print 


150 jnpuL "あな た の 生ま れ た 年 代 を 入力 し て くだ さい ( 明治 =9 , 大 正 =1 , 昭和 =2 )- 


ーー> "5 81 


169 print 

179 switoh ai 

189 case 9:print "あな た は 明治 生ま れ で す ":break 
199 case 1:prin も "あな た は 大 正 生 まれ で す ":break 
299 case 2:prin も t "あな た は 昭和 生ま れ で す ":break 
219 過 @ 志 AU お SDTaA も も "の の で 9 

229 endseitch 

239 end 
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SYM BOL GRAPH 


測 | 加 | 障 
高 | | 導 | | 


藻 
q ト 
CC 


symbol(x, y, st, h, vV, mo, D, an) 


int (x, y, p) , str (st) , char (h, Y, mo, an) 


void 


グラ フィ ッ ク 画 面 上 に 文字 列 を 表示 し ます 。 


cg 始点 X 座 禁 

eee 始点 Y 座 標 

の た 文字 列 (文字 式 ) 

10OOMCEA 横 方 向 の 倍率 (1 一 255) 

RE 縦 方 向 の 倍率 (1 一 255) 

mo "et… 文字 フォ ント の 種類 
(半角 ) (全角 ) 


(UNsaso 6 X12、12※X12 
1 ……… 8 X16、16X16 
の 69rebcs 12X24、24X24 
seairene パレ ッ ト コ ー ド ( 色 ) 
an で en 回 転 角度 (0 一 3、、 た だ し 90 度 単位 ) 


x、y は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 ク リッ ピン グ エ リ ア に つ 
いて は window 関 数 で 指定 され た 範 胃 に な り ま す 。 ま た パレ ッ ト コ ー ド p は 0 か ら 
65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は ダラ フィ ッ ク 画 面 の 実 画面 サイ ズ お よ 
び 色 モー ド に より ます 。 


/* symbo] sample 
せ D も ai。Bi Gt di 
char ao 
float af 
Green 1。3。 1 1 
vpage( 1 ) 
randomize(150900 ) 
foP At] も 9 10 
a で =a1i 
Symbo1(256,256,"X68",ac,ac,2,rnd( )*65535,ac mod 4) 
next 
for ai= の to 59099:next 
wipe( ) 
for ai= の to 3 
8a で =a ュ 
for bi=99 to 420 
af=2*pi ( ) *bi/331 
ci=sin(af)*169 
di=cos(af)*1609 
Symbo1(bi,256-oci,"X68",1,1,2,rnd()*65535,ac) 
Symbo1(bi,256-di,"X68",2,2,2,rnd()*65535,ac ) 
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249 next 
25 の 9 チ o ai=1 も o 15 


260 8 ご = ニ 81 

279 Symbo1(159-ai*1 の 9,159-ai*19,"X68",ac,ac,2,rnd( )*65535,9) 
280 for bi=09 to 499:next 

299 next 

399 end 


SYSTEM | コマ ンド 


system 
Sys. 
機能 


親 プ ロ セ ス に 制御 を 戻し ます 。 プ ログ ラム 中 で は 使用 で きま せん 。 プ ログ ラム 中 で 使 
用 する 場合 は 、exit( ) 命令 を 使用 し て くだ さい 。 


TAN 関数 


書 式 tan(n) 


float 


戻り 値 float 


数 値 n( ラ ジア ン ) の 正 接 (タン ジェ ント ) を 返し ます 。 


例 10 /* tan sample 
20、 mn みす io も 3 ら も = コ 
39 float af 
49 screen 1,3,1,1 
59 vpage(1) 
69 1ine(9,255.511,.255,65535,&HFFEF ) 
大 の お G お 8 エミ 人 4 0 3 


89 for bi= の to 511 

99 af=(2*pi ( ) *bi ) /512*ai 

1909 if af>=ei*pi( ) /2 then ei=ei+2:ocontinue 
116 ci=255-tan(af)*100 

120 di=rnd( )*65535 

139 pset(bi ,ci,d ュ ) 

1409 next 

159 ei=1 

169 next 

179 end 
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TIME$ 


書 式 time$ 
引 数 str 


戻り 値 str 


現在 の 時 刻 を 文字 列 と し て 返し ます 。 代 入 す る こと に よっ て 時 刻 を 


1 の /* time$ sample 
]| 
用 例 2 の str as,bs 


30 as=time$ 

49 print as 

59 bs=as 

69 time$=bs 

79 print time$ 
89 end 


TOASCII 


書 式 toascii (ch) 
引 数 char 
戻り 値 int 


機能 キャ ラク タコ ー ド ch の 文字 が 非 ア スキ ー 文 字 (&H80 一 &HFF) で あれ ば アス キー 文 
字 (&H00 一 &H7F) に 変換 し て 返し ます 。 
キャ ラク タコ ー ド ch に は 0 か ら 255 の 値 が 入り 、 戻 り 値 も その 範囲 の キャ ラク タコ ー ド 
を 返し ます 。 非 アス キー 文字 以外 の 


| 1 の /* toasoii sample 
用 例 20 char ao, bc,cc 
3 の 9 ae= テ a? 


49 bo=' マ ” 
59 cc=&B11199111 


は その まま の キャ ラク タコ ー ド を 返し ます 。 


/* &b91199991 */ 
/* &b11991111 */ 


69 print chr$(toasoii(ao) 
79 print chr$(toasoii( bo ) 
89 print chr$(toasoii(oo ) 


99 end 


jibin$(toasoii(ao) ) 
ibin$(toasoii( bo ) ) 
jbin$(toascii(oo) ) 


TOLOWER 上 準 関数 


用 例 


TOU 


tolower (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 英 大 文字 CA の ) で あれ は 英 小文字 Ca の) に 変換 
し て 返し ます 。 

キャ ラク タコ ー ド ch に は 0 か ら 255 の 値 が 入り 、 戻 り 値 も その 男 囲 の キャ ラク タコ ー 
ド を 返し ます 。 英 大 文字 以外 の 場合 は その まま の キャ ラク タコ ー ド を 返し ます 。 


19 /* tolower sample 
29 char ao,bo,co 


3 の ac='a' 
49 bo='A! 
な 0 ec= "ちち * 


69 print chr$(tolower( ac) ) 
7 の print chr$(tolower( bo ) ) 
809 print chr$(tolower(ooc) ) 
90 end 


PPER 標準 関数 


用 例 


toupper (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 英 小 文字 Ca 一) で あれ は 英 大 文字 CAー グ ) に 変換 
し て 返し ます 。 

キャ ラク タコ ー ド ch に は 0 か ら 255 の 値 が 入り 、 戻 り 値 も その 男 囲 の キャ ラク タコ ー 
ド を 返し ます 。 英 小 文字 以外 の 場合 は そ を の まま の キャ ラク タコ ー ド を 返し ます 。 


19 /* toupper sample 

29 char ao, bc,cc 

39 ao='a? 

49 bo='AY 

5 の oc@=“ 5? 

69 print chr$(toupper( ac ) ) 
79 print chr$(toupper ( bo ) ) 
8 print chr$(toupper( oo ) ) 
99 end 
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VAL 標準 関数 


Val (st) 


引 数 str 
戻り 値 float 


月 文字 列 st を 動 小数 値 に 変換 し て 返し ます 。 
人 &B、&H、&O 形 式 の 整数 値 を 表現 し た 文字 列 も 変換 で きま す 。 


Str S$ 


づ 
19 /* va] sample 
用 例 29 float af,bf,ocFf 
39 str as,bs,os[ 49] 
49 as="3999999999999" 
59 bs="-2.51235e-2" 
69 cs=" の .5192123542131543512312313453543543513213" 
79 af=va](as) 
89 bf=va1 ( bs ) 
9 の 9 cf=va1(cs) 


109 print "("+aS+")*("+bS+")*( リ ToS+") =" iaf*bf*oFf 
119 print "("+as+")/("+bs+")/("+os+") = リ "jaf/bF/cFf 
129 print "("+as+")+("+bs+ リキ (リト Cs+") = リ "iaF+bf+oFf 
139 print "("+as+")-("+bs+")-( "Tcs+") =" iaf-bf-oFf 
149 end 
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VPAGE 


Vpage(i) 
char 


Void 


GRAPH 


各 グ ラフ ィ ッ ク ペ ー ジ の 表示 ON/OFF を 指定 し ます 。 グ ラフ ィ ッ ク ペ ー ジ 番号 は 0 
ー3 で 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に より ます 。 


グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に よる ij の 値 の 男 囲 


eee6: 表示 ON 
0……… 表示 OFF 
1024X1024(16 色 モー ド )……0 、 1 (グラ フィ ッ ク ペ ー ジ 0 の み ) 
512X512(16 色 モー ド )………0 か ら 15 
)。 | グッ フォ ッ メ タ | アラ ラ ィ ッ ク | ダラ マ ィ ッ プ | グラ ウィ ッ タ 
ペー ジウ 9 ペー ジ 2 ペー ジ I 2 
0 0 0 0 0 
1 0 0 0 1 
2 0 0 1 0 
3 0 0 1 1 
4 0 1 0 0 
5 0 1 0 1 
6 0 1 1 0 
7 0 1 1 1 
8 1 0 0 0 
9 1 0 0 1 
10 1 0 1 0 
11 1 0 1 1 
12 1 1 0 0 
13 1 1 0 1 
14 1 1 1 0 
15 1 1 1 1 
512X512(256 色 モー ド )……0 か ら 3 
グラ フォッグ | グラ ラ ィ ッ ク 
SS の) ペー ジ 0 
0 0 0 
1 0 1 
2 1 0 
3 1 1 


512X512(65536 色 モー ド ) 


0 、 
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1 (グラ フィ ッ ク ペ ー ジ 0 の み ) 


第 4 章 


リフ テレ シス 


志 3 


apage、home、screen、window 


1 の /* vpage sample 
2 や mt ab oh 

39 float af 

人 seeen 1。1 は 。1 
59 vpage(9) 

69 windoc で (9.9,.511,.511) 
79 apage(0) 

89 kyu(4909,0) 

99 apage(1) 
199 kyu(320,10 ) 

119 apage(2) 
129 kyu(240,20) 

139 apage(3) 
139 kyu(160,30) 

159 while -1 

6 の fo ia エニ の も Q S11 


170 af=pi( )*ai/512*2 

189 bi=abs(sin(pi( )/2-af )*400) 

1909 if bi=9 then { 

2909 vpage(&B109) :pause( ) 
210 vpage(&B100 ) : pause( ) 
2209 vpage(&B100909 ) : pause( ) 
239 vpage(&B109 ) :pause( ) 
249 Ypage(&B10) :pause( ) 
259 } 

269 home(9, の ,bi ) :home(1,9,bi ) 

279 home(2,9,bi ) : home(3,9,bi ) 

280 vpage(&B1 ) 

299 next 

399 endwhile 

319 end 


329 funo kyu(ai,b1 ) 

33 の 9 cirole(256,461+bi,59,5,0,369,ai ) 
349 paint(256,46]+bi , 5 ) 

359 endfuno 

369 func pause( ) 

37 の 9 for oi= の 9 to 250 

389 next 

399 endfuno 


V_C UT IMAGE 


Y_cut (sw') 

char 

Yoid 

スー パー イン ボー ズ 時 の テレ ビ ・ ビ テオ 画面 表示 を 制御 し ます 。 


SW rt 制御 スイ ッ チ (0 ニテ レビ ・ ビ デオ 画面 表示 ON、 1 ニテ レビ ・ ビ デ 
オ 画 面 表示 OFF) 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 が 必要 で す 。 


1 
No) 
G 


WHILE-CENDWHILE ステ ー ト メン ト 


while < 式 > 
く < ルー プ ブ の 内 容 > 


endwhile 
< 式 〉 の 値 が 偽 に な る まで 、 指 定 さ れ た の レ ー フ の 内 容 > を 繰り 返し (レー プ ) ます 。 
繰り 返し の 終了 判定 は ツレ ー フ の 内 容 > の 実行 前 に 行わ れ ま す 。< 式 > の 内 容 に よっ て 


は 、 一 度 も ツレ ー フ の 内 容 > を 実行 し な い 場 合 が あり ます 。 


19 /* while endnhi]e sample 
2 int ai 

39 while ai<>3 

409 DU も 。 リネ の = の ai 

59 endvhil1e 

69 print "ok!" 

70 end 


WIDTH ISZ ジ 2 リド 


width < 文字 数 > 

ベ 。 

表示 文字 数 を 変更 し ます 。 く 文字 数 > は 96 か 64 で す 。 

この 命令 を 実行 する と テキ スト 画面 、 グ ラフ ィ ッ ク 画 面 や スプ ライ ト 画 面 は 消去 きれ 
ます 。 また 、 console 0.31.1 が 再 設定 され ます 。 テキ スト 画面 の パレット も デフ ォ ル 
ト の 値 に 再 設 定 き され ます 。 


1 
Io) 
1 
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WINDOW 


GRAPH 
書 式 window(x1.yY1.x2.Y2) 
引 数 int 
void 
グラ フィ ッ ク 画 面 の 実 画面 上 で クリ ッ ピ ング する エリ ア ( ク リッ ピン グ エ リ ア ) を 指 
し ま 3 
OK 実 画 面 上 で の クリ ッ ピ ング エリ アグ の 左上 X 座 標 
1 oonevo 実 画面 上 で の クリ ッ ピ ング エリ アグ の 左 上 Y 座 標 
ドン 全 COCOOHE 実 画面 上 で の クリ ッ ピ ング エリ アグ の 右 下 X 座 標 
0 vw 実 画面 上 で の クリ ッ ピ ング エリ アグ の 右 下 Y 座 標 


っ 


さ 1、Y1、x2、Y2 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ が 512X512 の 場合 は 0 か ら 511 ま 
で 、 実 画面 サイ ズ が 1024x 1024 の 場合 は 0 か ら 1023 ま で の 値 を と る こと が で きま す 。 
screen 命 令 を 実行 する と x1、 ゞ 1、 *2、 v2 に は その 表示 画面 サイ ズ の 大 きき さ で 再 設定 き 


れ ま す 。 た だ し 、 こ の 場合 (x1.y1) に は (0.0) が 再 設定 され ます 。 


aDage、 home、screen、 VYDaAge 


用 例 


/* windoe sample 
竹生 あま も 。D も 。63 1 @1 。 ず ュ 
screen 1,3,1,1 


vpage(1 ) 

yhile -1 

xnput "クリ ッ ピ ング エリ ア の 左上 双 座 標 (9 こ 511) を 入力 し て くだ さい "jai 
print ai 

inpu も t "クリ ッ ピ ング エリ ア の 左上 Y 麻 標 (9 こ 511) を 入力 し て くだ さい "ijbi 
print bi 

input "クリッピング エリ ア の 右 下 座標 (9 ご 511) を 人 人 力 し て くだ さい 「jgi 
DP1D も を も Go3 

inpu も t "クリ ッ ピ ング エリ ア の 右 下 Y 訂 標 (9 こ 511) を 入力 し て くだ さい "id⑪ 
print di 

DCSn せ ンク 0 yg 区 ング エリ アデ だ は が (OAD OB1002 De 29) で みう 


window(ai,bi ,ci,d ュ ) 

box(ai,bi,ci,d1i,65535,&HFFFF ) 

for ai=9 to 299 
bi=rand() mod 512 
ci=rand() mod 512 
di=rand( ) mod 512 
ei=rand() mod 512 
fi=rnd()*65535 
か あま 軸 。 全 生 。 間 演 6@ ま まき) 

nex† 

yipe( ) 

cl1s 

endwhile 

end 


299 


WIPE GRAPH 


戻り 値 void 
グラ フィ ッ ク 画 面 の アク ティ ブ ベ ー ジ の クリ ッ ピ ング エリ ア 内 を 消去 し ます 。 


2 apage、 い indowr 


19 /* wipe sample 

20 mt jmai。b1 63 

39 screen 1,1,1,1 

49 vpage(09) 

59 apage( の ) 

69 fi11(59,59,169,269,9) 

79 kyu(299,9,9) 

89 apage(1) 

99 kyu(209,15,6) 

199 apage(2) 

110 kyu(159,11,9) 

129 symbo1(179,166,"SHARP",3,2,2.5,9) 
139 apage(3) 

149 kyu(199,13,9) 

159 symbo1(292,196,"X68999 9 の) 
169 vpage(&B1111) 

179 for ai=1 to 3 

180 oeaEe 13.20:pxr 和 tm も "ダラ ウィック ペ ー ジ "jmanh5" を ワイ ゲル ます! 
1909 for bi= の 9 to 109990 

200 next 
210 apage(ai ) 
220 wYpe( ) 
239 next 

249 apage(0) 

259 1ocate 13,20:print "グラ フ ブ フィック ペー ジ 9 を ワイ プ し ます !!" 
269 for bi=9 to 1090990 

279 next 
280 wipe( ) 

299 end 

399 func kyu(ai,bi ,oi ) 

319 cirole(256,256,ai,bi,-19,-170,200) 
329 paint(256,2509,bi ) 
339 circle(256,256,39,ci, の 9,180,209) 
349 paint(256,259,ci ) 

359 endfunoc 


ーー 


Ki 


[IL 


_ し 2 


に - 
IL 
pc 
… 
ーー 


コン トロ ー ル コー ド 一 覧 


CTRL コー ド 機 能 対応 キー 
@ 00 SS 
A 01 イン サー トモ ー ド に する (トグル 動作 で ON/OFF する ) || INS 
B 02 現在 の ワー ド の 先頭 に カー ソル を 戻す 
(@ 03 実行 を 停止 する BREAK 
D 04 イニ シャ ライ ズ す る 
E 05 現在 の カー ソル 以降 1 行 を 消す 
F 06 次 の ワー ド の 先頭 に カー ソル を 進め る 
G 07 | カー ソル 位置 の 文字 を 消す [DEL | 
H 08 | バッ クス ペー ス (カー ソル の 前 の 位置 の 文字 を 消す ) | BS | 
I 09 水平 AB を 行う HTAB 
l 0A 現在 の カー ソル 以降 を 次 の 行 に 分 ける 
K OB | カー ソル を 画面 の ホー ム 位 置 に 移す IHOME| 
帳 0C テキ スト 画面 を 消去 する CLR 
M 0D | キャ リッ ジリ ター ン を する |、 [ENTER | 
N OE 現在 の カー ソル か ら 上 を 上 方 向 に スク ロー ル す る ROLL UP 
O OF | 現在 の カー ソル か ら 下 を 下方 向 に スク ロー ル す る IROLL DOWN| 
P 10 に た 
Q 11 実行 の 一 時 停止 を 解除 する 
R 12 ミー 
S 13 実行 を 一 時 停止 する 
MA 14 ミー 
上 W 15 ミー 
V 16 ダミ ー 
W 17 現在 の カー ソル が ある 行 と 次 の 行 を つなぐ 
X 18 ミー 
19 ミー 
2 1A 現在 の カー ソル より 下 の テ キス ト 画 面 を すべ て 消去 する 
[ 1B | エス ケー プ コ ー ド ESC 
薬 1C カー ソル を 右 へ 移動 する 二 
」 1D | カー ソル を 左 へ 移動 する 較 
人 1E | カー ソル を 上 へ 移動 する 1 
較 1F | カー ソル を 下 へ 移動 する | 
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遼 キ ャ ラク ター コー ド 表 


上 位 4 ビット 一 


くそ ー ロ ー 和 を 六 拉 ぐ コ く マー 


L 
| 
哲之 RW を だ | 骨 | 軸 | 了 | 全 | 全 | さ 還 記 >|・ 9 
O| ふ | 中 | 全 | 下 | 一 | 直人 | 明 Sa | ト | * IM 
m ksSIklglklslwISIkInl* ylkl ゃ |> 
| gg 省 計 | 間 」 ト kk| 冠 | お | 9| 宇和 dl m か 
〇 ゝ 
ーーー] m く マー ロー 生 抽 人 で コ く マー 叫 
Co 
sl | 如 川 品 | の | 玉 上 | 当 | 記 中 | 剛 中 操 | SN と | 王 目 
< 〇 loGlol で | ol 史 | bl 己 | ご | 一 || 一 | 日 | 品 | oO 
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ヒ 選 さり トー テー 
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予約 語 一 覧 


務 約 語 は X-BASIC が 管理 する キー ワー ド で 、 変数 名 や func 一 endfunc で 定義 する 関数 名 と し て 


画 了 予約 話 一 覧 
は 使え ませ ん 。 

ABS DAY$ 
APAGE DEFAULT 
ASC DELETE 
ATAN DIM 
ATOF DSKF 
ATOI ECVT 
AUTO ELSE 

A PLAY END 

A REC ENDFUNC 
BEEP ENDSWITCH 
BG FILL ENDWHILE 
BG_GET ERRNO 
BG_ PUT ERROR 
BG_ SCROLL EXIT 
BG_SET EXP 
BG_STAT FCLOSE 
BIN$ FCLOSEALL 
BOX FCVT 
BREAK FDELETE 
CASE FEOF 
CHAR FGETC 
CHDIR FILES 
CHDRV FILL 
CHRs$ FIX 
CIRCLE FLOAT 
CLEAR FOPEN 
CLS FOR 
COLOR FPUTC 
CONSOLE FREAD 
CONT FREADS 
CONTINUE FREE 
CONTRAST FRENAME 
COS FSEEK 
CRT FUNC 
CSRLIN FWRITE 
DATE$ FWRITES 


GCVT 
GET 
GOSUB 
GOTO 
HEX$ 
HOME 
HSV 

IF 

IMG COLOR 
IMG HOME 
IMG _HT 


ISALNUM 
ISALPHA 
ISASCII 
ISCNTRL 
ISDIGIT 
ISGRAPH 
ISLOWER 
ISPRINT 
ISPUNCT 
ISSPACE 
ISUPPER 
ISXDIGIT 
ITOA 
KEY 


KILL 
LEFTS 
LEN 
LFILES 
LINE 
LINPUT 
LIST 
LLIST 
LOAD 
LOCATE 
LOG 
LPRINT 
LSEARCH 
MID$ 
MIRRORS 
MOUSE 
MSAREA 
MSBTN 
MSPOS 
MSSTAT 
M ALLOC 
M ASSIGN 
M CONT 
M FREE 
M INIT 
M PLAY 
M STAT 
M STOP 
M TEMPO 
M _TRK 
MVGET 
M VSET 
NAME 
NEW 
NEXT 
OCTS 
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OFF 
ON 
PAINT 
PALET 
PI 

POINT 
POS 

POW 
PRINT 
PSET 
PUT 
RAND 
RANDOMIZE 
RENUM 
REPEAT 
RETURN 
RGB 
RIGHT$ 
RND 
RUN 
SAVE 
SCREEN 
SEARCH 
SETMSPOS 
SGN 

SIN 
SPACE$ 
SP CLR 
SP COLOR 
SP DEF 
SP DISP 
SP INIT 
SP MOVE 
SP OFF 
SP ON 
SP PAT 


SP SET 
SP STAT 
SQR 
SRAND 
STICK 
STOP 
STR 
STRS 
STRCHR 
STRCSPN 
STRIG 
STRINGS 
STRLEN 
STRLWR 
STRNSET 
STRRCHR 
STRREV 
STRSET 
STRSPN 
STRTOK 
STRUPR 
SWITCH 
SYMBOL 
SYSTEM 
TAN 
THEN 
TIMES 
TOASCII 
TOLOWER 
TOUPPER 
UNTIL 
USING 
VAL 
VPAGE 

V CUT 
WHILE 


WIDTH 
WINDOW 
WIPE 
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FM 音源 の 音色 デー タ ( レ ジス タ ) 


田 FM 音 源 の 音色 デー タ ( レ ジス タ ) 


本 機 の FM 音源 に は 、YM2151 (OPM) を 使用 し て いま す 。 こ れ は 、 8 オク ター ブス テレ オ 出 力 が 
可能 な FM Generator を 8 チャ ン ネ ル 持 っ て お り 、 そ の 各 チ ャ ン ネ ル に 、 オ ペレ ー タ と し て モジ ュ レ 
ー タ 2 個 (M1, M2)、 キ ャ リア 2 個 (C1, C2) が 対応 し て いま す 。 し か も 、 こ の オペ レー タ の 組み 
合せ や 、 チ ャ ン ネ ル ご と の Phase Generator と オペ レー タ ご と の Envelope Generator の 設定 値 を 
変化 きせ る こと に より 、 い ろ い ろ な 音 作り が 可能 に な っ て いま す 。 

また 、 こ の FM 音源 で は 、 低 周波 発振 器 (LFO) を も ちっ て お り 、 そ れ を 使用 する こと で ビブ ラー ト 
や トレ モロ 効果 が 生み 出せ ます 。 

(1) フィ ー ド パッ クノ デル ゴリ ズム 
@ デ アル ゴリ ズム …… 各 チャ ン ネ ル ご と の 4 つの オペ レー タ の 組み 合せ を 設定 し ます 。 8 種類 の 組み 
.。 合わせ が あ り 、 そ れ ぞ れ で 変化 に 富ん だ 音色 作り が で きま す が 、 一 般 に 、 キ ャ 
リア の 数 が 少な く 、 モ ジュ レー タ の 数 が 多い ほど 複雑 な 音色 変化 を 作れ ます 。 


bit5 4 3 りら | 0 


グー ド バ パウ ク アル ゴリ ズム 


(SSSvheisies P ォ ー* OUT 
Be 
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資料 編 


あゆ フ ォ ー ドッ グー 各 チ ャ ン ネ ル ご と の 最初 の オペ レー タ の 出力 を その オペ レー タ 自 身 に フィ ー 
ド バ ッ ク す る こと に より 、 ひ と つの オペ レー タ だ け で 変調 が 行わ れ ま す 。 数 
値 が 大 きく な る ほど 、 大 きく 変調 され 、 高 周波 成分 が 増え 、 音 色 が 大 きく 変 


わり ます 。 
0 0… の mi OFF 
0 0 1…… ァ /16 
(0 陽 癌 0 の ァ /8 
(0 軸 KS ヶ /4 
].0 0Oetes ァ /2 
l 則 0 原 | 刀 
則 (One 2 ァ 
| 隊 | 隊 IGG を 4 ヶ 


(2) スロ ッ ト マ スク …… 各 チャ ン ネ ル ご と の 各 オ ペレ ー タ の キー オン (出力 され ます ) ノ オフ (出力 さ 
れ ま せん ) を 設定 し ます 。 


bit3 。 2 | 0 


C2( キ ャ リア 2 論 
M2( モ ジュ レー タ 2): ome キー オン (動作 ) 


(キャ リア 1) | 9"… キー オフ 
MI( モ ジュ レー タ |) 
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FM 音源 の 音色 デー タ (レジ スタ ) 


(3) ウェ ー ブ フ ォ ー ム * …… LFO か ら 発 生き され る 波形 を 設定 し ます 。 波形 の 違い に より 、 音量 や 音色 
の 変化 の し か た が 変わ り ま す 。 


EZ ホー ニーバ 周波 数 変調 (音程 ) 
十 
0 
ー サ 
5 一 一 一 ーーー ト ーーー オーーーー 
| 0 
ー ャ 
5 『 リー ーー ダー 
ーー 
CPU1 ス 2 計 II 
3 0 NOISE 
の 
ウェ エー プ フ ォ ー ム 振幅 変調 (音量) 


エ 』 ーーーー ーー ーーー 
3 NOISE 
0 


(40 シン クロ “で LFO の スタ ー ト と キー オン ( 音 が 発生 され る 瞬間 ) を シン クロ させ ます 。 シ ンク 
ロ 状 態 に する と 音 が 発生 きれ る た びに ビブ ラー ト や トレ モロ 効果 な ど が 波形 の 先 
頭 か ら か か り ま す 。 
1 …… シ ンク ロ 状 態 


(5) スピ ー ド * …… LEFO の 発振 周波 数 (ビブ ラー ト や トレ モロ 効果 の 速 き ) を 設定 し ます 。 数値 が 大 
きく な る ほど 、 周 波数 が 高く な り 、 ス ピー ド が 速く な り ま す 。 
0-255 ( 約 0.009-59Hz に 対応 ) 


(6) PMD (Pitch Modulation Depth) * 
dt002 周波 数 変調 (音程 ) に 対し て か ける LFO の 出力 レベ ル を 設定 し ます 。 数 値 が 大 きく な る は ほ 
ど 、 深 く ぐ か か り ま す 。 
0 一 127 (出力 レベ ル 小 つ 出 カレ ベル 大 ) 


(7⑦) AMD (Amplitude Modulation Depth) * 
273 振幅 変調 (音量 ) に 対し て か ける LFO の 出力 レベ ル を 設定 し ます 。 数 値 が 大 きく な る ほ 
ど 。 深 ぐ か がかり ます 。 
0 一 127 (出力 レベ ル 小 一 出 カ レベル 大 ) 
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(8) PMS (Pitch Modulation Sensitivity)* 
kvm 各 チ ャ ン ネ ル ご と の 周波 数 変調 (音程 ) に 対し て か ける LFO の 感度 を 設定 し ます 。 数 値 が 
大 きく な る ほど 、 感 度 は 大 きく な り ま す 。 
0 一 7 (感度 小 一 感度 大 ) 


(9) AMS (Amplitude Modulation Sensitivity)* 
ran 各 チ ャ ン ネ ル ご と の 振幅 変調 (音量 ) に 対し て か ける LFO の 感度 を 設定 し ます 。 数 値 が 大 
きく な る ほど 、 感 度 は 大 きく な り ま す 。 
0 一 3 (感度 小 つ 感度 大 ) 


Q⑩) LR PAN…… 各 チャ ン ネ ル ご と の 出力 方 式 を 設定 し ます 。 


0…… 出 力 禁 止 
css 記 肝 
2 ceo 着 中 
3…… ス テレ オ 出 力 


※・…… LFO (Low Frequency Oscillator) に 関す る デー タ 
な お 、 PMD が 0 に な っ て いる と 周波 数 変調 (音程 ) に 対し て の LFO は か か り ま せん し 、 AMD 
が 0 に な っ て いる と 振幅 変調 (音量 ) に 対し て の LFO は か か り ま せん 。 
な お 、LFO を 使用 する と 音色 が 変わ り ま す 。 


〔 オ ペレ ー タ 単位 ] … 以 降 の 説明 に お いて オペ レー タ 1 は M1、 オ ペレ ー タ 2 は C1、 オ ペレ ー タ 3 は 
M2、 オ ペレ ー タ 4 は C2 に 対応 し ます 。 


Key ON Key OFF 


時 間 


AR DIR D2R RR 


11) AR (Attack Rate) ** …… キー オン され た あと 、 出 力 レ ベル が 最大 に な る まで の 速度 (減衰 量 
が 0db に な る まで の レー ト ) を 設定 し ます 。 数 値 が 大 きく な る は ほど 音 
の 立ち 上 が り が 速く な り ま す 。 
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(2 D1R (First Decay Rate)** …… 出力 レベ ル が 最大 に な っ て か ら 、D1L で 設定 し た レベ ル に 下 
が る まで の 速度 (減衰 量 が 0db か ら D1L し に な る まで の レー ト ) 
設定 し ます 。 数 値 が 大 きく な る ほど 、 音 の 減衰 速度 が 速く 
な り ま す 。 
0 一 31 


(0 D2R (Second Decay Rate) ** …… D1L で 設定 し た レベ ル に な っ て か ら 、 キ ー オ フ さ れる まで 
の 速度 (減衰 量 が D1L し に な っ て か ら キ ー オ フ さ れる まで の 
レー ト ) を 設定 し ます 。 数 値 が 大 きく な る ほど 、 音 の 減衰 
速度 が 速く な り ま す 。 

0 ー31 


(1) RR (Release Rate) **…… キー オフ され て か ら 音 が 消え る (最大 減衰 量 (96db) に な る ) まで の 
速度 を 設定 し ます 。 数 値 が 大 きく な る ほど 、 キ ー オ フ し て か ら の 音 
の 減衰 速度 が 速く な り ま す 。 
0ic215 


⑮ D1L (First Decay Level) *……D1R か ら D2R に 移る と ころ の 出力 レベ ル を 設定 し ます 。 数 値 
が 大 きく な る ほど 出力 レベ ル が 低く な り ま す 。 
0……: 滅 衰 量 0 db 8…… 小 裏 量 24db 
1 ……: 減 衰 量 3db 9…- 減 誤 量 27db 
2……: 減 衰 量 6 db 10…・ 減 衰 量 30db 
Rhissai 減衰 量 9 db 11…: 減 衰 量 33db 
4……: 減 衰 量 12db 12…: 減 衰 量 36db 
5……: 減 衰 量 15db 13…: 減 衰 量 39db 
ee 減衰 量 18db 14……: 小 衰 量 42db 
7 ……: 減衰 量 21db 15・……… 減衰 量 93db 


⑩⑯ TL (Total Level)** …… 音色 及び 音量 を 制御 する た め の 各 オペ レー タ に お ける EG の トー タ 
ル 出 力 レ ベル を 設定 し ます 。 キ ャ リア の 出力 レベ ル は 音量 を 変化 さ 
せ 、 モ ジュ レー タ の 出力 レベ ル は 音色 を 変化 きせ ます 。 数 値 が 大 き 
く な る ほど 、 出 力 レ ベル は 小さ く な り ま す 。 
0 一 127 (出力 レベ ル 大 一 出力 レベ ル 小 ) 


(17 KS (Key Scaling)** …… 音 の 高き さき (キー コー ド ) に よっ て 、 エ ン ベ ロ ー プ の 長 さ を 変化 させ 


ます 。 数 値 が 大 きく な る ほど 、 高 音域 で の エン ベロ ー プ の 長 さ が 短 
く な り ま す (音色 が 鋭く な り ま す )。 


235 


(89 


MUL (Phase Multiply) … 各 オペ レー タ の 周波 数 を 設定 し ます 。 設 定 値 は 、 鍵 盤 標準 ピッ チ 
に 対す る 周波 数 の 比 を 表わし ます (0 の 場合 は 1/2 の 周波 数 )。 
0 一 15 


DT1 (Detune 1) …… 各 オ ペレ ー タ の ピッ チ を 微妙 に ずら すこ と に より 、 音 の 波 の 干渉 作用 を 
起こ し 、 音 に 広がり を 与え ます 。 数 値 が 0 か 4 の と き 、 ピ ッ チ 変化 は 0 で 
す 。 数 値 が 1、2、3 の 場合 、 ピ ッ チ 変化 は 十 1、 十 2、 十 3 と な り 、 数 値 が 5、 
6、7 の 場合 、 ピ ッ チ 変化 は ー1、 一 2、 一 3 と な り ま す 。 
0 一 7 


DT2 (Detane 2) …… 各 オ ペレ ー タ の 周波 数 を 設定 し ます が 、 周 波数 比 を 非 整数 倍 に し た いと 
き に 設定 し ます 。 数 値 が が の と き 、MUL で 設定 され た 周波 数 を 1.00 僅 、 
1 の と き 1.41 倍 、2 の と き 1.57 倍 、3 の と き 1.73 倍 に 変え ます 。 
08 


に アド だ 各 オ ペレ ー タ ご と に AMS の イネ ー プ ブル を 設定 し ます 。 
人 eee AMS デ ィ セ ー プ ブル 
1 ……AMS イ ネー ブル (AMS 動 作 ) 


来 ※ ま ーー EG (Envelope Generator) に 関す る デー タ 
キャ リア の オペ レー タ の エン ベロ ー プ ・ ジ ェ ネ レー タ は 音量 の 時 間 的 変化 を 、 モ ジュ レ 
ー タ の オペ レー タ の エン ベロ ー プ ・ ジ ェ ネ レー タ は 音色 の 時 間 的 変化 を コン トロ ー ル し 
に 
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| は 62 FFP 29.73 
eee 70 
標準 関数 … ぐ ntt ドド ドド ドー 34 
表示 画面 PC に に つつ つつ に OCG OL 36 
ファ ンク ショ ン キ ー 表 示 "に に 上 司 35 
浮動 小数 点数 oe 33 
フリ ー エ リア サイ ズ … ド に に に に に em…… 28 
レー o0eraeoosdoess26 eo ee SA0zS 2 38 
プロ グラ ム モ ー ド ・…‥ eneoー ド ーー 6 
プロ ンダ トー ーー ドド ドド enenoo ツー 7 
文 eee aeferdieierete ea eeieesie sie ] 有 
ii 5 
2 数 人 填 語 osdocsecaaaeesscscseaoeeakkets utoaco 14 
変数 の デー タ 電 ee 14 
ま 

マー ジ (混合 、 追加 ) 上 (jfe1e2 和 08KW ああ 25 
マル チ ス テー トメ ント < で で eee 12 63 
ビープ PP PP 5.9 
メイ ンプ ログ ラム で で の の mee 14 23 
文字 14 
文字 バッ ファ の サイ ズー … er 14.63 
ES まこ ー ル イト で 3 eS ecod2cseiceoeee 23 
た EGGOEECEOCCEEEEEEEEEEREECPCPECEECECEEEECEEEE 73 
や 

予約 11 
ら 

ライ トモ ー ド CELLK CECKG ス スベ 7 て エス に で て CK 56 
リー ドモ ーー ドー ・ ド に eo 56 
リー ドラ イト モー ドー 56 
リタ ーー ン キー ーー ドー ドド TP 4.5 
の 2 た に つら は た いい PCO だ CC 17 
切 ーー ジル 次 数 31 
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圏 機 能 別 索引 

ADPCM の 制御 (AUDIO. FNC) 

A PLAY 2 Js. を Sb 科 @5 WoO ge iDi1W (る YaUWC 末 Te S0 活 _REC 6) 吉 718「9 が MeO760 5 細 (W26/GeIS192 池 !161 ま (IgG 81 
コマ ンド 

上 義 回 人 0DPCWPOOOWOPCKEAZKKKCEKOCKICCPACOPCOOCYK 79 | SYM N 室 YO YATTKEC た CYP 156 
CHDIR は iC: 人 575 Ba も る (の II 91 LOAD 和夫 (38 ある 6166 人:( ま 16! 后 (677637 ま ) 人 912. 157 
CHDRV 66S1(Mi81 革 AB 6ZNNIRISYeiVei2[ 当 etGE5( き 9)2iaieJ 91 NAME 人 (和敬 Ug! 人 811gi 和 ALBA8I8 く 89488 173 
CHILD お end! まい 9 (890621WC06YST&6(6LWT6 9 の る (6.816785781 あ ia182Wide 92 NEW ah!8eie: 補 15 5 匠 52@2 人 7: 稼 78B:90W61BG(97ajehaielm 9'6 173 
CLEAR 人 7) いき (868 人 ) 宮 (: っ 94 RENUM ゲー 185 
CONT 人 16* 和 人 ( 困 [ 放 (78 人 (吉信 (@ 和 Pt@ 生 (1 98 RUN 志和 人 1( 更 8) 人 1) の : 和 (1 [11931 人 71 188 
DELETE 7 な 1 本 あ の 6 を 11008N 衝 す )1CeYrie 103 SAVE 和合 TIBy (187NL7 人 (0 7 188 
FILES の 1 (いい! る) の 9: 人 (8 い 0! が (あす 67WIS819 き (の 113 SEARCH 6 折り 全 ) あ (61816, 9 あ (6、 967 いあ 0 1168 あま a、 190() 
KEY SE (し しい し た CFD ロビ つこ て 152 SYSTEM は OCT アス で いつ て LCLr 大 っ て KK を うい いい 宙 OO い 人) 215 
KILL 28:B78、 和 IX た GSX 21978iaWie7 有 66:8 い Ge7aGeTa(gi1e) 8 152 WIDTH aneig: (BRRCRarsiaiES'SC167GR7ogi の Ga) 2921 
デー タ の 変換 

ASC Pi き あゆ (GAW( い 宮 / が めい きい) 人 7 びあ 1 919W. 16751 686 み 8( を 76 HEX $ 3 か":iW67W: さ (0. 和 9): 抽 828・ れ 8 (9 いあ [あま 20 人 9 りか る fa 130 
ATOF 18)! 人 67: 挫 )(aWi き 8:p7)Ca187 61866(@)g7e17 人 (ge):606) を 77 IN 丁 和 (9、i2m77 (7: 基 D8 etggB( 817 を" 当 、 台 (1 9ei 144 
ATOI Ye 7 滞る 978 67 る 人 @:@.@' 90@'@:6is'6!die' を 78 EIGA eseaeeeseieesieseeeeeseieeeseewedeeeeaieieseieeieieeiee 151 
BN ワタ タタ 88 OCT 174 
CHR $ 587 和泊 天 La @1e1:8:1G15 人 6( 和 Wa76 aiB307 92 は 開 5 $ 96307? 人! り K6 7579 へ (67. 名 1228) 抽 (* 抽 ROWSPW 205 
1 8 Ce 106 OAISDLT oe 216 
FCVT ie0e が で ie leo'20We 919905 1687658) い 1e:365、080 が 0 608U も 4 110 TOLOWER が 39:'WT む 16.915 六 8 9909478 ea19 0: 人 (8)606.%.Hfmie の 1 
FIX 521 875 19 本 才 :16:1K: め 7 を) すい の 人! 115 TOUPPER 77 を 0 や / (1 人 12 の 1 の 1877WI ほ 9 217 
GCVT 9 56 が (な 8 7888 8818(GY6 む Ng 失い あく 168(68776 57) 127 VAL 28683!576 が 816、 和 (ie7e'af&igi6<e91Bai81e:g)65.0.G(8298!5:9e ae の ig185e: 218 
ファ イル 入出 力 

DSKF いつ 105 BE 選 UIEOO 5001 19918: 和 976*416:Wi き te8:ai&U658:@8:abe:e'etgi40: 118 
FCLOSE 1 1 いり "和志 7 和 Y( し ek 29TEYe い e3 違 109 FREAD) 9 ee 1 SKIeDeie、9:aTsc9Wie い 9 の ie の 05! ae1aie 119 
FCLOSEALL の et: (9: 生 875 82RZ528 (1190 110) FREADS (1 人 16。1 あ 19798( 二 (65 WP2BCW1W25Ya2 な 0) る (9 PRUSY い が 121 
FDELETE 半生 Na な 5 7G ee (5780 い 816 76 目 削 | FRENAME icte dei5 く あ 169:@g16(e @)e:16ai516)CG29 る 1518 お *@。 人 Le 6 1 
FEOF (1! ちさ |1922720 こ 人 19: 2073 で の る 26 ai 則 有 | FSEEK 間野 きき 誠 あ の 8 の 00 の eS)" eS な 123 
FGETC 1 の Rg: 819067 を 887 1 FW RITE KT スス 200 つ 1 な rr K プ イ 125 
FOPEN 2 fB70 語 83 人 2 和 0 :5[g71@ig5e: 和 5 洲 *413: 党 (gae e7、 116 ド FW RITES 87972DRS0Y575 光 5178SPe5LgieNa77H3tG SVT 126 
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グラ フィ ッ ク の 制御 (GRAPH. FNC) 


APAGE 誠二) あ 2EX87 誤 (RSSSW*de 近 07H188DSYGuaiKike era 75 PALET 73163 人 Y 7 We きら (935:@761 976762 あ 03):66 176 
BOX 661e ii: や 199: め 111 it: m あ (gy 89 POINT ("生き | 人 78) Yi 1 の 3 いあ 1: 人 ge 759 178 
CIRCLE の (30839 6 807199f5D18692(8787 あ 8619 あく: "9 (61 93 PSET 2 0『 あ (1: 97 人 18191BISS6:S26:S18.6) き eieW (きき (を 6dk6isse 182 
CONTRAST 二 aieWim1eSeY:Gheee:g 二 (1 16 い g(ieieU 100 PUT LC72 に LRTC3-K ツ ルト YE エス (W く ROY に 183 
IM 賠 2 の): る (jigYareYeie】e'eie151)@ (67 人 (167W Et! 人)my5818。9 人 (6: 114 RGB (8 が 拓 区 116) 区 (人 生 『1| き 1 あ く 9: あ も を (961! きい tg 泊 811 76 186 
GET (1 人 (人 18:f87 あ 867 あな: 本 (18 の 128 SYMBOL 和則 凡 (Lee が Se7g LA 市 15628C816EHWSataiW3 214 
HOME 0 は 1).09 980 が: 和 (919 の 7 人 (607 6 131 VPAGE 6 fewte7e: 和 Uieie: き 31871 め 90W781 人 86968D60 誠 29161 め < ぴ 99 219 
HSV 026 aeNete WS が きる:5160 が 82 人 が 6 の を ie1e (906) 132 WINDOW 0 JPG16 38116!$、 和 お 16263 5 (8 607Pg1 二 (aaa1e) ゆめ) 
LINE 03616 きど: きめ (6 人 0iM6 る [8 あき あめ: 9:aja(@ SAce 154 WIPE (mg: 018 Tate 16:( 人 (59 で 1eg70 7) SL6' あ 61 (088 223 
PAINT 人 81 上 9!!! 人 SYSN1481 本 82675)(B1i (18 175 

数 値 演算 

ABS (9: る (7: 16) 人 (76( 和 (9718 人 六 18700 あ Le (67991 74 RANDOMIZE 記 く )! 和 07896.87978688.6187@191B!679168 184 
ATAN PROXYKN YAOUXT WC2 YR を YIOYYKX ふ は YY て OPT KK 76 RND 0.) 29 民 [(@)@ 電 : @0118 67⑳1W @19 @: ゆ CB る: 本 187 
OS 因 60701806 (8. 4751:【1( 和 お! EeeIe77、 な 100 SGN 人 ia (19010:57、@:67 和 08 湯 / 二 51 人 fB" 78 ii 89 191 
EXP 92 くい 00 (8(@ (2 滞 (58309: 1111 の 95 人 0 109 SIN ire な! 9:@19:: る 1 の * 和 (の いき (99 9 192 
LO (78 人 湯 78( 人 (61616.8 上 (826781 め お 9( あ 、816Te761 ぁ 190a の 7 158 SQR 60 あ LeWIaNe: 98、@ 誠 16 8818.@6. 和 07 186 7618 202 
PI 87282.81fS19W。I6'W1)8: な TS1616[ 93WK: あ (8.(g aw:57e い ee: 177 SRAND 人 Ja1 め 88783 得 18622 80088 くき 7 ae 202 
POW 18: (fa(@:0@: 有 58 が (9 わ 9109:615 め 1566 人 78: 78 人 ) 略 1 179 TAN 2 の SDa7S1SNei み ii の 8: お めき: 60878a1878ig(RNa16 215 
RAND) 1a7) 和 (18. (9: &1@356.( 人 8。SIG/8(8SL6@* あ 8! 184 

マウ ス の 制御 (MOUSE. FNC) 

MOUSE CIGSSL@' な 1678292716 和 861 操 182 誠 じ あ 829. 160 IMSPOS (18 人 1 も Ca7S7 07 人 8 (ある (1819 わせ "iC agDa1615 163 
MSAREA 661PWie195PrO&T 和 98a( き ie1e197 和 6 6.) 池坊 ( 161 MSSTAT igaiVeie 泊 88886:0( き 全便: 人 164 
MSBTN 82tg8 人 Ye 9)a67)': る (8、VW:W916 (98):06 162 SETMSPOS [か 717 (人 ge RaIgigAYaTe7eiesi 191 
FM 音源 の 制御 (MUSIC. FNC) 

IM _ALLOC GPC に 165 ]M 時 4 人 APROWiie9 (ee: gie: が Ng:@18 91 21AaTp 9618 168 
IM _ ASSIGN 全戸 き k9:Ui 志 Ni61iaNg18i826RUWtg\81679: ケ 1 な Kimo 束 2 165 IM STOP (7 人 (6 人 8 い 4 aaa te 169 
IM CONT 加計 ! め (87818 687881 ワ Li を 86161. 166 IM _ TEMPO 61887W、@87(@ 人 8.6、88*6936 和 8 も: あ :W678CW い 8 を 5 で (af 170 
IM _FREE 0 781781alaieg&iaiwie*uefeen き 916.80。1g 和 9167 9(W.@STe「@ 166 IM _TRK POR ROCKTSK は で (CWUKYCLK: で イア PKKY 171 
M _INIT 志和 19 (9 を 6276Y お (15 1 167 IM VGET の 5! な 9:R:1e8 由 06096X8281eieiaS19251、『57a( 171 
IM PLAY 0238620193 を 17626!6.6 ある 18 99708! 57 る /5 の る 167 IM VSET 7: 中 き YAS8(857 和 88099tszfaPBTmiO5959LNg0579!5 間 め 2 
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スプ ライ ト の 制御 (SPRITE. FNC) 


BG FILL eee 83 SPDTSP ee 196 
BG GET emem 84 SPLITNIT ee 197 
BGPUT emem 85 SP_ MOVE ee 197 
BG_ SCROLL ooo 86 に 1 二 6)9 ECRERRERERREEERREREEERREERR 198 
BG SET eri 86 SPOON 198 
BG STAT meme 87 SPA ii 199 
SPA CE 193 2 議 に ) 04 MOCOOOOOOOOOOOOOOOHHCOTHHEG 200 
SP_ COLOR… moe 193 SEP ST iii 201 
SP DEE mmm 194 

文字 列 処理 

NSRO 雪 CGCPCYYPEPPNE ま PCE 143 RIRORX3 認 Se023C21e2SGRZe25G WPe CeeS 159 
AINIEUM 人 < YRRO2U い ORG 144 153 80 和 COPECECCC2OPP GECCCPDEKPL 187 
SW 関 急 引 CPP OPRO 145 SN PDAVG4 PRIN 室 く COORRD で OCZCCSGT で CID 192 
SS eaeeeeosete45e dayee seos 145 STR 205 
SGN 和 ER い eee20R kuswstot vosOetie seoo 146 GPRSTDNM Es eeeonod2dtetan3ecade se 206 
STDIGM eeeuoeih toewre ssietee tea 146 GSRINGS、 3 時 ne CB We220R320 208 
SS 人 ERAOP 軸 に eSUHeest BdCieseedsts2tsoeeosan 147 STPRTEN (LRN) ekiteeeieiee eneeesooes 208 
16 孤 人 NB CSECETEC き 2COC2EPU AP 147 SGINRIWWYRAm RB CRE DGG dosesorC3 209 
ERR TNI 20WEUseItee te esse 148 SNI DNS PR 折 EPC 209 
ISPUNCT…… ド oo 148 SEPRRGR beekeee eneeterietee ceteetetee 210 
1 SYS PC OPC 149 SRI beeettaet3 い eeeoumie tie 210 
1 KG 0 6 5 149 GRSR 人 eee32Sea soaaedteeoesees 911 
1 NSK 半 OKCXPCSC い KO 150 GAYRSIPIN( 305 yeeee 30 の resetenio eo 211 
1 間 3 5 0252CEPCPPPPC は CPIO 153 KG RB⑳】6 電 22222CEMCK も COCP の PKK ス T 212 
MHD0 謗 322 52C263328P52 392S52ckGcSoomt3 159 GNUPR SRURNBG eSSeY3 R22685e Au 912 


[0 (本 CT 203 GR 233。 SPP20 08082OS SNSSe2Gn80 steel 207 
ステ デー トメ ント 

[5 5 や CCPP2HEPPPOCN2 の で 82 (BOB6HR2 2800800285252230200007KORN2CSCGOCH 95 
505 PP 90 COLOR [| で の ………ooeooeeeememtmtetet 96 
0 人 2 の GCC 90 GONSOLEEo eee ーー 97 
OM 94 CONTUNOUMRE に biseeeesssesee eaeeo0rs es 99 


241 


MM 104 | 関 N EGGSO PPE 155 
193N 0 且 CX32CGPXPOEPDHSUPF2C お 3 107 | 剖 開 に ESEC 156 
ERROR OMZOBH 108 Geeeeteet/eteeooeeoe 157 
EXIT( ) DCCPK ど まで た ドミ ドド ドド ドド ミミ ドド ドミ ドド ミミ すさ すす 108 LPRINT RODPCPPPPPPPPEPEEEPPPEEKPPPPPCPEEEYYEEEYE 180) 
FLOAT PCDDCCOPPPCPPYYYPYPYPPPPPPYYYYPYYYYYYYYYYYE 115 LSEARCH DOOCCDPOOCPLPCOPPLYEIPPPCPPPPPPPFPPPEKPF 190 
ORNE2 和 ee 117 1 IN 且 GOO EYE 180 
FUNCENDEFEUNC 一 RETURN ( ) …124 REM …… 上 ti の ii ドド ee 185 
(GOSIUB 一 RONUURNI eeiakig etc roe es 129 4 09 E 才 | NMN 加 PR 186 
(or 130 102『4 4 BMN 朗 の eKPCCCRCFOH CPP 189 
0 NB NVP こつ 0 94 了 S1 ROY 133 GCCRPLGSC ス GO 204 
| NEOSCEPCOPOOCIOGZOCRECCCLPCPPPCAFC 142 (GMC20GOOE2T3FTP PP 204 
INN 朗 22CPLRCP の OCRCOOOC2EOGDCPBOO3EC 143 SWITCH-CASE-DEFAULT-ENDSWITCH …… 213 
KEY ーー ドド hh 151 WHILEーENDW HILE RODPCPPCLPLPYCPLPYEY 221 
1 敵 5 朋 開 時 RG に で 2 た PF 員 8 

シス テム 変数 

CSRIEIN se eo5 neet Yasuoautass 102 1 0 FM 3 CCO 129 
DATE$ POPPPPPPPPPPDPPCPPCPPPPPPPPPCPPPEKEKSYYS) 102 INKEY$ PODDCOPCPDPPPPPEPEEYYPYPCPKPYYETPKYYIEKYTI 141 
DAY$ DODOCCCCEKPPPPPPPPYPPPEYPPPPPPYPYYYYEEEEE 103 POS DOOCOCOOPCODOPPPPPPPPEPPPPEPDPPPEESEEPPEYEELYE 179 
ERRNO OOCOCPCCOPPPPPPPPPPPPPPPPPTPYYTT で EE で YE 107 TIME$ COCCOOOCOOOCPPPDPPYEYPEPPPPEPKPPPEKEEKELLLLLI 216 
イメ ー ジ 処理 (IMAGE. FNC) 

0 時 訟 ECR2CE2 き を KEYAPKKLCPKUKOP 101 IMG PUT ee 138 
IMG_ COLOR oe 134 IMG_ SAVE eee 138 
IMG_HOME eee 135 IMG_SCRN oe 139 
IMG HHT ee 136 IMG SET meme 140 
IMG_LOAD imi 136 IMG_STILL ee 141 
IMG POS em 137 10g MEEHREERRERRRERRERRRERRRRRE 220 
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